Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		Debug.WriteLine("Beginne mit Warten")
		Dim endTime As DateTime = Now.AddSeconds(10)
		While Now < endTime
			'Der Anwendung ermöglichen, Events zu verarbeiten
			Application.DoEvents()
			'Sleep, um die Prozessorlast nicht zu hoch zu drücken
			Threading.Thread.Sleep(1)
			'Wenn Form geschlossen wurde Schleife abbrechen
			If Me.IsDisposed Then
				Return
			End If
		End While
		Debug.WriteLine("Fertig mit Warten")
	End Sub

Private _waitHandle As New Threading.ManualResetEvent(False)
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
	Debug.WriteLine("Starte Beabeitung auf Thread " & _
Threading.Thread.CurrentThread.ManagedThreadId)
	Me.BackgroundWorker1.RunWorkerAsync()
End Sub
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
	Debug.WriteLine("Beabeitung auf Thread " & _
Threading.Thread.CurrentThread.ManagedThreadId)
	If Me.SerialPort1.IsOpen Then
		Me.SerialPort1.Close()
	End If
 
	'Führ dazu, dass weiter unten bei _waitHandle.WaitOne der Thread angehalten 
' wird.
	_waitHandle.Reset()
	Me.SerialPort1.Open()
	Debug.WriteLine("Warte auf Antwort auf Port " & Me.SerialPort1.PortName)
	Dim isSignaled As Boolean = _waitHandle.WaitOne(TimeSpan.FromSeconds(10), _
  False)
	Debug.WriteLine("Warten beendet. Daten auf Port empfangen = " & isSignaled)
 
End Sub
 
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As _
  System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
	Debug.WriteLine("Datenempfang auf Thread " & _
Threading.Thread.CurrentThread.ManagedThreadId)
	If _waitHandle IsNot Nothing Then
		'Führt dazu, dass das Warten abgebrochen wird bzw. gar nicht erst anfängt
		_waitHandle.Set()
	End If
End Sub