Also You can make this:

Module1.bas

Dim m_VarX as Long

Public Property Get VarX() As Long
VarX = mVarX
End Property

Public Property let VarX( Byval New_Value As Long)
mVarX = New_Value

'You can make many things here!

End Property


Jefferson