Dim m_TxtBox As Object
Dim i As Integer
 
 
Public Property Get TxtBox() As Object
    TxtBox = m_TxtBox
End Property
 
Public Property Let TxtBox(New_TxtBox As Object)
    m_TxtBox = New_TxtBox
    PropertyChanged "TxtBox"
End Property
 
Private Sub UserControl_InitProperties()
    i = 0 
End Sub
 
 
Private Sub Command1_Click()
    i = i + 1i
    TxtBox.Text = i
End Sub
 
Private Sub Command2_Click()
i = i - 1
TxtBox.Text = i
End Sub

Private Sub Form_Load()
ctrZaehler1.TxtBox = Text1
End Sub