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
Printable View
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
You could also:
Code:Event Thisevent(Params As Param.eter)
Code:Raiseevent (":)Not sure about this and above...")
'---End Block---'