Public Class Form1
 
    Declare Auto Function tapiRequestMakeCall Lib "TAPI32.dll" ( _
      ByVal DestAddress As String, _
      ByVal AppName As String, _
      ByVal CalledParty As String, _
      ByVal Comment As String) As Integer
 
 
    Private Const TAPIERR_NOREQUESTRECIPIENT = -2&
    Private Const TAPIERR_REQUESTQUEUEFULL = -3&
    Private Const TAPIERR_INVALDESTADDRESS = -4&
 
    ' Windows-Wählhilfe starten und Telefonnummer wählen
    Public Sub Dial(ByVal sPhoneNumber As String, _
      ByVal sRecipient As String, _
      Optional ByVal sComment As String = "")
 
        Dim sBuffer As String
        Dim nResult As Integer
 
        ' Wählhilfe starten und Telefonnummer wählen
        nResult = tapiRequestMakeCall(sPhoneNumber, _
          Application.ProductName, sRecipient, sComment)
 
        MsgBox(nResult)
 
        ' Rückgabewert auswerten
        If nResult <> 0 Then
            ' Fehler!
            Select Case nResult
                Case TAPIERR_NOREQUESTRECIPIENT
                    MsgBox("Diw Windows Wählhilfe ist nicht installiert" & _
                      " oder konnte nicht gestartet werden!")
 
                Case TAPIERR_REQUESTQUEUEFULL
                    MsgBox("Die Anrufschlange ist voll!")
 
                Case TAPIERR_INVALDESTADDRESS
                    MsgBox("Ungültige Telefonnummer!")
 
                Case Else
                    MsgBox("Sonstiger Fehler!: " & nResult)
 
            End Select
        End If
    End Sub
 
    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStart.Click
        Dial("02217401511", "", "")
    End Sub
 
End Class