' Das ist meine Form1-Klasse
Public Class Form1
' Klasse des Todes - Part II
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
       ' StatusBar1.Panels.Item(0).Text = "Benutzerlevel: Admin"
        Uhrzeitintervall.Start()
        Ofen1Timer1min.Start()
        Timeout.Start()
	' Meine Änderung
	StartThread()
        OleDbDataAdapter1.Fill(DsS5LAN1)
        OleDbDataAdapter2.Fill(DsOfen1)
 
        ' Gesammelte Istwerte in Access DB ablegen
        Dim objZeile As DataRow
        objZeile = DsS5LAN1.Tables("Temperaturen").NewRow()
        With objZeile
            .Item("ALOHG1") = S5Thread.IstALOHG11(0)  ' Das sind die Buffer vom 
            ' Thread... 
            .Item("ALOHG2") = S5Thread.IstALOHG21(0)
            .Item("ALOHG3") = S5Thread.IstALOHG31(0)
            .Item("ALOHG4") = S5Thread.IstALOHG41(0)
            .Item("ALOHG5") = S5Thread.IstALOHG51(0)
            .Item("ALOHG6") = S5Thread.IstALOHG61(0)
            .Item("LGOHG1") = S5Thread.IstLGOHG11(0)
            .Item("LGOHG2") = S5Thread.IstLGOHG21(0)
            .Item("LGOHG3") = S5Thread.IstLGOHG31(0)
            .Item("LGOHG4") = S5Thread.IstLGOHG41(0)
            .Item("LGOHG5") = S5Thread.IstLGOHG51(0)
            .Item("LGOBAD") = S5Thread.IstLGOBAD1(0)  
            .Item("Datum") = Format(Uhrzeit, "dd/MM/yyyy")
            .Item("Uhrzeit") = Format(Uhrzeit, "dd/MM/yyyy HH:mm")
        End With
        DsS5LAN1.Tables("Temperaturen").Rows.Add(objZeile)
        OleDbDataAdapter1.Update(DsS5LAN1, "Temperaturen")
        ' evtl noch StopThread()
    End Sub
 
Private Sub StartThread()
        ' Meine Änderung
        s5Thread.StartMe()
End Sub
Private Sub StopThread() 
         ' Meine Änderung
         S5Thread.StopMe()
End Sub
 
End Class