Public Class Form1
 
    Delegate Sub AddListItem(ByVal myString As String)
    Public myDelegate As AddListItem
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim th As New cl_timer
        th.ks_Timer_start()
 
    End Sub
 
 
    Public Sub AddListItemMethod(ByVal myString As String)
        ListBox1.Items.Add(myString)
    End Sub
 
 
End Class

 
Public Class cl_timer
 
    Private WithEvents timer1 As New Timer
 
 
    Public Function ks_Timer_start()
        Try
 
            With timer1
                .Interval = 10000 'alle 10 Sek, da eine Sekunde = 1000
                .Start()
            End With
 
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
            Exit Function
        End Try
 
        Return Nothing
 
    End Function
 
    Private Function timer1_tick() Handles timer1.Tick
        Try
            Dim deleg1 As New System.Threading.ThreadStart(AddressOf _
              zeitliche_Ausführung)
            Dim threadDeleg1 As New System.Threading.Thread(deleg1)
 
            threadDeleg1.Start()
 
            Return Nothing
 
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
            Exit Function
        End Try
 
    End Function
 
    Private Function zeitliche_Ausführung()
        Try
 
            'hier weiss ich nicht weiter
 
            Return Date.Now
 
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
            Exit Function
        End Try
 
    End Function
 
End Class

 
 Private frm1 As Form1
    Public Sub New(ByVal myForm As Form1)
        frm1 = myForm
    End Sub 'New