Sub SendData(ByVal data() As Byte)
		Dim pos As Integer = 0
		Dim bytesToSend As Integer = 1024
		ProgressBar1.Maximum = data.Length
		SerialPort1.Open()
		Do While pos < data.Length - 1
			If data.Length - pos < bytesToSend Then
				bytesToSend = data.Length - pos
			End If
			SerialPort1.Write(data, pos, bytesToSend)
			pos += bytesToSend
			ProgressBar1.Value = pos
		Loop
		SerialPort1.Close()
	End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus