Private Sub frmRecieveSMS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Using commPort As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM8", 9600) 'display all SMS in my textbox named tbMessages commPort.Write("AT+CMGL=""ALL""" & vbCrLf & Chr(34)) tbMessage.Text = commPort.ReadExisting End Using End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)