>Put MS Comm control 6.0 on the form and issue:
>
>comDialPhone.CommPort = 1 ' or change 1 to desired COM port
>comDialPhone.Settings = "9600,N,8,1"
>comDialPhone.PortOpen = True
>comDialPhone.Output = "ATDT" & strPhoneNumber & vbCr
>'Put here code, which wait phone to be picked up. Next row will close
>'phone line
>comDialPhone.PortOpen = False
>
>strPhoneNumber is string variable, contains phone number you want dial to.

Sorry, I wrongly think you write in VB...

Equivalent code in VFP:

ThisForm.comDialPhone.CommPort = 1 && or change 1 to desired COM port
ThisForm.comDialPhone.Settings = "9600,N,8,1"
ThisForm.comDialPhone.PortOpen = .T.
ThisForm.comDialPhone.Output = "ATDT" + strPhoneNumber + chr(13)
*Put here code, which wait phone to be picked up. Next row will close
*phone line
ThisForm.comDialPhone.PortOpen = .F.

strPhoneNumber is string variable, contains phone number you want dial to.