LOCAL objSMS AS "mCore.SMS", strMyMessage AS String objSMS = CREATEOBJECT("mCore.SMS") IF objSMS.LogSize > 100 objSMS.ClearLog(10) ENDIF objSMS.LogType = 2 objSMS.Port = "COM6" && Change to the Port on which your device is connected objSMS.BaudRate = 19200 *19200 objSMS.DataBits = 8 objSMS.Parity = "N" objSMS.StopBits = "1" objSMS.Character = 2 && 0 – 7-Bit Default GSM, 1 – 8-Bit ANSI, 2 – 16-Bit Unicode objSMS.SMSC = "+923330005150" objSMS.SendDelay = 1 objSMS.SendRetry = 2 objSMS.TimeOut = 30000 objSMS.Validity = "2D" strMyMessage = thisform.message.value&& num=thisform.numbers.Value strMyMessage = messagetyp objSMS.SendSMS('num', strMyMessage) If Not objSMS.IsError(.t.) Then MESSAGEBOX("Message Sent!") ELSE MESSAGEBOX("Sending failed!") EndIf objSMS = NULL