Option Explicit
Private Declare Function tapiRequestMakeCall& Lib "TAPI32.DLL" _ (ByVal DestAdress$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$) Private Sub ChooseNumber(strNumber As String, strAppName As String, strName As String) Dim lngResult As Long Dim strBuffer As String lngResult = tapiRequestMakeCall&(strNumber, strAppName, strName, "") If lngResult <> 0 Then 'error strBuffer = "Error connecting to number: " Select Case lngResult Case -2& strBuffer = strBuffer & " 'PhoneDailer not installed?" Case -3& strBuffer = strBuffer & "Error : " & CStr(lngResult) & "." End Select MsgBox strBuffer End If End Sub Private Sub Command1_Click() Call ChooseNumber(Text1(0).Text, "PhoneDialer", Text1(1).Text) End Sub Private Sub Form_Load() Text1(0).Text = "" Text1(1).Text = "" End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub make a new project; 2 textboxen (index 0 & 1); 2 labels (index 0 & 1) 1 command button Insert the next code in the right place (use Insert/File) Press F5 |