How to Create Class in Visual Basic 6.0

'#
'@author:Ken V.
'@date: November 13,2009
'@update: -
'@version: Ver 1.0.1
'#
Option Explicit
Private name As Integer
Private age As String
Private address As String


Public Property Let letbatchid(ByVal newbatchid As Integer)
    batchid = newbatchid
End Property
Public Property Get getbatchid() As Integer
    getbatchid = batchid
End Property

Public Property Let letbatchno(ByVal name As String)
    name= newname
End Property

Public Property Get getname() As String
    getname = name
End Property

Public Property Let letage(ByVal newage As String)
    age= newage
End Property

Public Property Get getaddress() As String
    getaddress= address
End Property

//This is just a simple example on how to create class in Visual Basic 6.0.


Enjoy!