Corayzon Regular Posts: 67
|
Code: | Public Event Called(sFunctionName As String) Public Event SetMeBlocked() Private sSetMeValue As String Public bBlockSetMe As Boolean Public Function Add(int1, int2) As Long Add = Int(int1) + Int(int2) RaiseEvent Called("Add") End Function Public Property Get SetMe() As Variant SetMe = sSetMeValue RaiseEvent Called("Get SetMe") End Property Public Property Let SetMe(ByVal vNewValue As Variant) If bBlockSetMe = True Then RaiseEvent SetMeBlocked Exit Sub End If sSetMeValue = vNewValue RaiseEvent Called("Let SetMe") End Property | Compile this in a ActiveX Control and in a new vb project add the project name as a component
|