Public Class cComm
 
    Private WithEvents _myTapi As TAPI
    Private _myAddress As ITAddress
    Private _myCall As ITBasicCallControl
    Private _myAddresses As ITCollection
    Private _useDevice As String
    Private _Devices As String()
    Private fs As System.IO.FileStream
    Private CallStateObject As ITCallStateEvent
    Private _ConnState As Boolean
 
    Public ReadOnly Property Devices() As String()
        Get
            Return _Devices
        End Get
    End Property
 
    Public Property UseDevice() As String
        Get
            Return _useDevice
        End Get
        Set(ByVal value As String)
            _useDevice = value
        End Set
    End Property
 
    Public ReadOnly Property Connected() As Boolean
        Get
            Connected = _ConnState
        End Get
    End Property
 
    Public Sub New()
        Dim m_TAPI As New TAPI
        m_TAPI.Initialize()
        _myTapi = m_TAPI
        m_TAPI = Nothing
        '_myTapi.Initialize()
        _myAddresses = CType(_myTapi.Addresses, ITCollection)
        _ConnState = False
        Dim Index As Integer
 
        For Index = 1 To _myAddresses.Count
            Dim Def As ITAddress
            Def = CType(_myAddresses.Item(Index), ITAddress)
            ReDim Preserve _Devices(Index) : _Devices(Index) = Def.AddressName
        Next
 
    End Sub
 
    Public Sub New(ByVal Device As String)
        Me.new()
 
        Dim index As Integer
        Dim Found As Boolean
 
        Found = False
        For index = 1 To _myAddresses.Count
            Dim Def As ITAddress
            Def = CType(_myAddresses.Item(index), ITAddress)
            If Def.AddressName = Device Then
                Found = True
                _myAddress = Def
                _useDevice = Device
                Exit For
            End If
        Next
        If Found = False Then Throw New ApplicationException("Device: " & _
          Device & " wurde nicht gefunden!")
    End Sub

VB RULEZ !