Private Sub Command1_Click()
MSComm1.CommPort = Text1.Text
MSComm1.PortOpen = True
With MSComm1
.Output = "AT+FCLASS=8" & vbCr
.Output = "AT+VSM=130,8000,0,0" & vbCr
.Output = "AT+VSD=128,50" & vbCr
.Output = "AT+VLS=1" & vbCr
End With
MSComm1.Output = "ATDT 980509651503" & vbCr
End Sub
После дозвона нажимаю command2
Private Sub Command2_Click()
MSComm1.Output = "ATVTX=c:\start.wav" & vbCr
End Sub
