Public Class clsTimerDemo
 
    'Timer erstellen und starten
    Dim WithEvents tim As New System.Windows.Forms.Timer _
        With {.Interval = 1000, .Enabled = True}
 
    Dim _myValue As Integer
 
    Public Event Valuechanged(ByVal sender As Object, e As EventArgs)
 
 
    Public ReadOnly Property myValue As Integer
        Get
            'Für externe Abfrage des Wertes
            Return _myValue
        End Get
    End Property
 
 
    Private WriteOnly Property ivalue As Integer
        Set(value As Integer)
            If Not value = _myValue Then
                'Für internes Setzen des Wertes incl. Benachrichtigung
                _myValue = value
                RaiseEvent Valuechanged(Me, EventArgs.Empty)
            End If
        End Set     
    End Property
 
 
    Private Sub tim_Tick(sender As Object, e As System.EventArgs) Handles _
      tim.Tick
        'Zuweisung per Property
        ivalue = _myValue + 1
    End Sub
End Class

Dim WithEvents myTimerClass As New clsTimerDemo
 
Private Sub myTimerClass_Valuechanged(sender As Object, _
        e As System.EventArgs) Handles myTimerClass.Valuechanged
 
     Me.Text = myTimerClass.myValue.ToString
 
End Sub