Option Explicit
 
Public Event Changed(ByVal vValue As Long)
 
Private m_Var As Long
 
Public Property Get Var() As Long
  Var = m_Var
End Property
 
Public Property Let Var(ByVal rhs As Long)
 
  If m_Var <> rhs Then
    m_Var = rhs
    RaiseEvent Changed(m_Var)
  End If
 
End Property

Option Explicit
 
Private WithEvents m_Ueberwachung As CIchBinUeberwachbar
 
Private Sub cmdChange_Click()
 
  m_Ueberwachung.Var = m_Ueberwachung.Var + 1
 
End Sub
 
Private Sub Form_Load()
 
  Set m_Ueberwachung = New CIchBinUeberwachbar
 
End Sub
 
Private Sub m_Ueberwachung_Changed(ByVal vValue As Long)
 
  MsgBox "Change"
 
End Sub

Gruß
Dirk

--
?Get it right the first time