22/04/2003, 16:11
|
| | | Fecha de Ingreso: abril-2003
Mensajes: 7
Antigüedad: 22 años, 2 meses Puntos: 0 | |
Suponiendo que el número en cuestión lo cargaramos en Text1 desde nuestra base de datos:
Código:
’Esto va en un Modulo:
Public Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" (ByVal DestAddress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$)
Private Sub Command1_Click()
Dim llamar As Long
Dim Telefono As String
Telefono = Text1.Text
llamar = tapiRequestMakeCall&(Telefono, "", "", "")
End Sub
|