Imports JulMar.Atapi
 
Public Class frmTapi
    WithEvents myTapi As JulMar.Atapi.TapiManager
    Dim myLine As JulMar.Atapi.TapiLine
    Dim myCall As JulMar.Atapi.TapiCall
 
    Private Sub frmEinstellungen_Tapi_Load(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles MyBase.Load
        myTapi = New TapiManager("Choice")
 
        AddHandler myTapi.CallStateChanged, AddressOf myCallState
 
        Try
            myTapi.Initialize()
            myLine = myTapi.GetLineByName(My.Settings.setTapileitung, True)
            myLine.Open(MediaModes.All)
        Catch ex As Exception
 
        End Try
    End Sub
 
    Private Sub myCallState(ByVal sender As Object, ByVal e As _
      CallStateEventArgs) Handles myTapi.CallStateChanged
        Select Case e.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..."
        End Select
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Me.Close()
 
    End Sub
End Class