Private Sub myCallState(ByVal sender As Object, ByVal e As _
      CallStateEventArgs) Handles myTapi.CallStateChanged
        Select Case myCall.CallState
            Case CallState.Busy
                labStatus.Text = "Teilnehmer besetzt."
            Case CallState.Connected
                labStatus.Text = "Verbunden"
            Case CallState.Dialing
                labStatus.Text = "Nummer wird gewählt..."
            Case CallState.Disconnected
                labStatus.Text = ""
            Case CallState.Idle
                labStatus.Text = ""
            Case CallState.Ringback
                labStatus.Text = "Läutet..."
            Case CallState.Proceeding
                labStatus.Text = "Anruf in Arbeit..."
            Case Else
                'Gar nichts.
        End Select
    End Sub