Private Sub main()
        Dim zeit As String
        Dim Counter As SByte
        abgleich = 7
        stoppuhr7_start()
        reset()
        Debug.Print("############ Main: Routine r #############")
        r_korrektur()
        reset()
        Debug.Print("############ Main: Routine g #############")
        g_korrektur()
        reset()
        Debug.Print("############ Main: Routine b #############")
        b_korrektur()
        reset()
        Debug.Print("############ Main: Routine c #############")
        c_korrektur()
        reset()
        Debug.Print("############ Main: Routine m #############")
        m_korrektur()
        reset()
        Debug.Print("############ Main: Routine y #############")
        y_korrektur()
        reset()
        Debug.Print("############ Main: Routine w #############")
        w_korrektur()
        reset()
        post()
        stoppuhr7_stopp()
        zeit = Stoppuhr7.Text
        Counter = r_counter + g_counter + b_counter + c_counter + y_counter + _
          m_counter + w_counter
End Sub

Dim Thread As New Threading.Thread(AddressOf main)
 
und 
 
    Private Sub reset()
        c7getvalues = False
        dh = 0
        dx = 0
        dy = 0
        tb_pj1hg.Text = dh
        tb_pj1xg.Text = dx
        tb_pj1yg.Text = dy
        tb_pj2hg.Text = dh
        tb_pj2xg.Text = dx
        tb_pj2yg.Text = dy
        tb_dh.Text = dh
        tb_dx.Text = dx
        tb_dy.Text = dy
    End Sub

  Private Sub But_Hauptfunktion_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs)
        Thread.Start()
 
    End Sub
 
    Private Sub but_abbruch_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles but_abbruch.Click
        Thread.Abort()
    End Sub

DJ Booking + Veranstaltungstechnik: www.roadresidents.de