Public Class frmThread
 
    Dim WithEvents btnStart As New Button With _
       {.Parent = Me, .Text = "Start"}
 
    Dim lblInfo As New Label With _
       {.Parent = Me, .Top = 50, .Width = 200, .BackColor = Color.White}
 
 
    Private Sub TheThread()
 
        Dim frmT As New frmThread
        frmT.Show()
 
        Dim z As Integer
        Do
            z += 1
 
            'eine Property wäre angebracht .....
            frmT.lblInfo.Text = Now.ToString
            frmT.Refresh()
 
            Threading.Thread.Sleep(1000)
        Loop Until z = 20
    End Sub
 
 
    Private Sub btnStart_Click(sender As Object, _
        e As System.EventArgs) Handles btnStart.Click
 
        Dim th As New Threading.Thread _
           (New Threading.ThreadStart(AddressOf TheThread))
 
        th.Priority = Threading.ThreadPriority.BelowNormal
 
        th.Start()
    End Sub
 
End Class