Visual Basic

Sub SendSMS()

        If Modem.IsOpen = False Then
            MsgBox("Port not Open!!")
            Exit Sub
        End If
        If Me.TxtTo.Text = "" Then
            MsgBox("No recepient number!!")
            Exit Sub

        End If

        If Me.TxtSMS.Text = "" Then
            MsgBox("Blank text message are not allowed!!")
            Exit Sub

        End If

        sendbutton.Enabled = False
        Sending = True
        SendAttempt = 0
        Do
            ATSend("AT+CMGF=1")
            Result = ATRead(1000)
        Loop While Result.Contains("COMMAND NOT SUPPORT")
        Do
            ATSend("AT+CSMP=17,167,0,0")
            Result = ATRead(1000)
        Loop While Result.Contains("COMMAND NOT SUPPORT")
        Do
            Do
                ATSend("AT+CMGS=""" & TxtTo.Text & """")
                Result = ATRead(1000)
            Loop While Result.Contains("COMMAND NOT SUPPORT")
            ATSend(TxtSMS.Text & Char.ConvertFromUtf32(26) & vbCr)
            Result = ATRead(10000)
            SendAttempt += 1
        Loop While Result.Contains("COMMAND NOT SUPPORT") Or (Result.Contains("ERROR") And SendAttempt < 5)
        If Result.EndsWith(vbCrLf & "OK" & vbCrLf) Then
            TxtSMS.Text = ""
            TxtTo.Text = ""
            '  MsgBox("Message Successfully Sent")
        Else
            '  MsgBox("Message Could Not Be Sent", MsgBoxStyle.Critical, "Error")
        End If
        sendbutton.Enabled = True
        Sending = False
End Sub

'Original Code before threading change.

Private Sub Picture1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Picture1.Paint

myGraphicObject = e.Graphics
myGraphicObject.Clear(Picture1.BackColor)
Draw_GDI_Related_Things_Function()

End Sub

'Threading piece of code
Private Sub Picture1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Picture1.Paint
System.Threading.Monitor.Enter(myGraphicObject)
myGraphicObject= e.Graphics
myGraphicObject.Clear(Picture1.BackColor)

'Draw_GDI_Related_Things_Function uses myGraphicObject to draw unto the picture box.
m_threadDraw = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf Draw_GDI_Related_Things_Function))

m_threadDraw.Start()
System.Threading.Monitor.Exit(myGraphicObject)
End Sub