Private Sub idle()
        wait = True
        miss()
        Do While wait                        ' auf das Ergebnis warten
            Application.DoEvents()
        Loop
        Debug.Print("Jetzt darf idle() weiter machen")
End Sub
 
Private Function miss()
        tb_1h.Text = ""
        ComPort6.RtsEnable = True
        ComPort6.RtsEnable = False 'RTS High Low zum Initialisieren 
        ComPort6.DtrEnable = True
        delay(600)
        ComPort6.WriteLine("M1")
End Function
 
Private Sub Receiver1(ByVal sender As Object, ByVal e As _
  SerialDataReceivedEventArgs) Handles ComPort6.DataReceived
        RXString1 = ComPort6.ReadLine()
        BeginInvoke(New StringSubPointer(AddressOf Display), RXString1)
End Sub
 
Private Sub Display(ByVal Buffer As String)
        Debug.Print("delay... ... ... ...")
        delay(1000)
        Debug.Print("... ... ... ... Ende!")
        wait = False
End Sub
 
Private Sub delay(ByVal zeit As Long)
        Dim zeit1 As Long
        zeit1 = System.Environment.TickCount
        Do
            Application.DoEvents()
        Loop Until (System.Environment.TickCount - zeit1 > zeit)
End Sub

 
Do While NOT wait                     
            Application.DoEvents()
Loop

 
Do While wait                     
            Application.DoEvents()
Loop

DJ Booking + Veranstaltungstechnik: www.roadresidents.de