>Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx" > > >Private Sub Connect_Click() > KylixSMS.Disconnect > 'These two properties must be set BEFORE 'Connect' method. > KylixSMS.RegisterName = "0000000000" > KylixSMS.RegisterCode = "0000000000000000000000000000000000000000" > > KylixSMS.NeedLog = 1 'If you have any problems please set the value to 1, and send us the log file "C:\MOBILESMS.LOG". > KylixSMS.SetComDTRRTS 3 'if 3 does not work please try 0,1,2. > > KylixSMS.ConnectionMode = ConnectionMode.ListIndex > KylixSMS.ComNumber = ComPort.ListIndex + 1 > KylixSMS.ComBaudrate = ComBaudrate.Text > KylixSMS.InitPIN = "" > If KylixSMS.Connect < 0 Then > MsgBox ("Failed.") > Else > Connect.Enabled = False > Disconnect.Enabled = True > InfoRefresh_Click > End If >End Sub