QUOTE(PsychoCoder @ 6 Jan, 2009 - 08:14 PM)

Dream.In.Code has a policy by which we prefer to see a good faith effort on your part before providing source code for homework assignments. Please post the code you have written in an effort to resolve the problem, and our members would be happy to provide some guidance. Be sure to include a description of any errors you are encountering as well.
Please post like this:

Thank you for helping us helping you.
CODE
Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 115200
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.RtsEnable =True
SerialPort1.Open()
//Textbox3 is for me to key in phone number.
SerialPort1.WriteLine("AT+CMGS=" + TextBox3.Text + vbCr)
TextBox1.Text = vbNewLine & ".... SMS sending in progress ...."
Textbox1.Refresh()
System.Threading.Thread.Sleep(750)
SerialPort1.WriteLine(TextBox4.Text)
System.Threading.Thread.Sleep(500)
SerialPort1.WriteLine(Chr(26))
System.Threading.Thread.Sleep(5500)
TextBox1.Text = ""
Textbox1.Text = SerialPort1.ReadExisting
If InStr(TextBox1.Text, "OK") <> 0 Then
TextBox1.Text = "SMS message successfully sent!"
MessageBox.Show("SMS message successfully sent!'")
Else
MessageBox.Show("Try again")
End If
SerialPort1.Close()
End Sub
Im using a device called iTeGno for this SMS APPLICATION PROJECT.