Sub Class_Globals
Private mvarID As Long
Private mvarName As String
End Sub
Public Sub getID() As Long
Return mvarID
End Sub
Public Sub setID(value As Long)
mvarID = value
End Sub
Public Sub getName() As String
Return mvarName
End Sub
Public Sub setName(value As String)
mvarName = value
End Sub