Option Explicit
'********************************************************************
'                   My_Arcmap.cls
'********************************************************************

'-------------------- Arc_Objects --------------------
Private Type Arc_Objects
    
    IMap As String

End Type

'------------------------ this -----------------------
Private Type this

    activeColor As String
    A As Arc_Objects
    Message As String
    
End Type

Private this As this

'====================================================================
'                           Class_Initialize
'====================================================================
Private Sub Class_Initialize()
        
    this.activeColor = "Green"
    this.Message = "Hello world"
    
End Sub
'====================================================================
'                           hello
'====================================================================
Public Sub Hello()
     
   MsgBox this.Message & " " & this.activeColor

End Sub
'====================================================================
'                           PenColor (Let)
'====================================================================
Public Property Let PenColor(ColorName As String)
    this.activeColor = ColorName

End Property

'====================================================================
'                           PenColor (Get)
'====================================================================
Public Property Get PenColor() As String
    PenColor = this.activeColor
End Property