AuthorMessage
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