Write to serial port asyncronously

Question

I am trying to write a commands to a serial port but my problem is that the operation is tedious so it is freezing up my UI. What makes it more complicated is that I must call this procedure when the form loads I want to ask if anyone can provide an alternative
way to get the same or better result I was thinking of running it asynchronously but I don't know how to?
This is the code I am calling on load
If lblConnected.Text = "" Then
MsgBox("Please connect to port.", MsgBoxStyle.OkOnly, "Validation")
Exit Sub
End If
RichTextBox1.Text = ""
Try
With SerialPort1
rcvdata = ""
.Write("AT" & vbCrLf)
Threading.Thread.Sleep(1)
.Write("AT+CMGF=1" & vbCrLf)
Threading.Thread.Sleep(1)
.Write("AT+CPMS=""SM""" & vbCrLf)
Threading.Thread.Sleep(1)
.Write("AT+CMGL=""ALL""" & vbCrLf)
Threading.Thread.Sleep(1)
.Write("AT+CNUM" & vbCrLf)
Threading.Thread.Sleep(2000)
Dim lineoftext As String
Dim arytextfile() As String
Dim myString As String
lineoftext = rcvdata.ToString
arytextfile = Split(lineoftext, "Your number is", CompareMethod.Text)
myString = "Your number is"
lineoftext = lineoftext.Substring(lineoftext.IndexOf("Your number is"), 40)
lineoftext = lineoftext.Replace("Your number is", "")
lineoftext = lineoftext.Substring(0, 13)
txtDonglePhoneNumber.Text = LTrim(lineoftext)
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
I am trying to extract the phone number from this whole routine  and it works but its freezing up my UI. How can I run from another thread.
If you think it you can achieve it

Answer 1

Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Private comport As SerialPort
Private sending As Boolean
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
sending = False
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
comport = CreateComport(comport)
If sending = False AndAlso OpenComport(comport) = True Then
Dim t As Threading.Thread = New Threading.Thread(AddressOf SendData)
t.IsBackground = True
t.Start(comport)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
CloseComport(comport)
End Sub
Private Function CreateComport(ByVal port As SerialPort) As SerialPort
If port Is Nothing Then
port = New SerialPort("COM4", 9600, Parity.None, 8, StopBits.One)
End If
Return port
End Function
Private Function OpenComport(ByVal port As SerialPort) As Boolean
Try
If (Not port Is Nothing) AndAlso (port.IsOpen = False) Then
port.Open()
End If
Return True
Catch ex As Exception
MessageBox.Show(String.Format("Exception :{0}", ex.ToString()))
Return False
End Try
End Function
Private Sub CloseComport(ByVal port As SerialPort)
Try
If (sending = False) AndAlso (Not port Is Nothing) AndAlso (port.IsOpen) Then
port.Close()
MessageBox.Show("Port closed")
End If
Catch ex As Exception
MessageBox.Show(String.Format("Exception :{0}", ex.ToString()))
End Try
End Sub
Private Sub SendData(ByVal port As Object)
Dim buffer(1023) As Byte
For i As Int32 = 0 To buffer.Length - 1
buffer(i) = i Mod 256
Next
sending = True
Try
DirectCast(port, SerialPort).Write(buffer, 0, buffer.Length)
Catch ex As Exception
CloseComport(DirectCast(port, SerialPort))
MessageBox.Show(String.Format("Exception :{0}", ex.ToString()))
Finally
sending = False
End Try
End Sub
End Class
在現實生活中，你和誰在一起的確很重要，甚至能改變你的成長軌跡，決定你的人生成敗。 和什麼樣的人在一起，就會有什麼樣的人生。 和勤奮的人在一起，你不會懶惰； 和積極的人在一起，你不會消沈； 與智者同行，你會不同凡響； 與高人為伍，你能登上巔峰。