Trucos Varios I

Usar el marcador telefonico

Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAddress&, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Sub Command1_Click()
Dim ValDev&, Numero$, NombreProg$, Quien$
Numero = "123-4567"
NombreProg = "Mi Programa"
Quien = "Pepe"
ValDev = tapiRequestMakeCall(Numero, NombreProg,Quien,"")
End Sub

Hecho en Lima - Perú por ® SYL systems