'Phone Dialer in VB

'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

------------- code -------------------
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
Return