Private Sub LesenAlleKameras()
 
        Dim thrKamera01Read As Thread
        Dim thrKamera02Read As Thread
        Dim thrKamera03Read As Thread
 
        Do
            thrKamera01Read = New Thread(AddressOf DoReadAnlage01Kamera01)
            thrKamera02Read = New Thread(AddressOf DoReadAnlage01Kamera02)
            thrKamera03Read = New Thread(AddressOf DoReadAnlage01Kamera03)
 
            thrKamera01Read.Start()
            thrKamera02Read.Start()
            thrKamera03Read.Start()
 
            thrKamera01Read.Join()
            thrKamera02Read.Join()
            thrKamera03Read.Join()
 
            mdlBerechnung.BerechnenAnlage1()
 
            EndeAnlage01Kamera1 = False
            EndeAnlage01Kamera2 = False
            EndeAnlage01Kamera3 = False
 
        Loop
 
End Sub