Imports System.Runtime.Interopservices
Imports TAPI3Lib
 
Public Class cTapi3
 
    Private _myTapi As TAPI
    Private _myAddress As ITAddress
    Private _myCall As ITBasicCallControl
    Private _myAddresses As ITCollection
    Private _useDevice As String
    Private _Devices As String()
    Private hComm As Integer
    Private bytRecvBufARR As Byte()
 
    Private Const PURGE_RXCLEAR As Integer = &H8
    Private Const PURGE_TXCLEAR As Integer = &H4
 
 
'DLL's
 
    <DllImport("kernel32.dll")> Private Shared Function _
         WriteFile(ByVal hFile As Integer, ByVal Buffer As Byte(), _
         ByVal nNumberOfBytesToWrite As Integer, ByRef lpNumberOfBytesWritten _
         As Integer, _
         ByVal lpOverlapped As Integer) As Integer
    End Function
 
    <DllImport("kernel32.dll")> Private Shared Function _
      ReadFile(ByVal hFile As Integer, ByVal Buffer As Byte(), _
      ByVal nNumberOfBytesToRead As Integer, ByRef lpNumberOfBytesRead As _
      Integer, _
      ByVal lpOverlapped As Integer) As Integer
    End Function
 
    <DllImport("kernel32.dll")> Private Shared Function _
         PurgeComm(ByVal hFile As Int32, ByVal dwFlags As Int32) As Int32
    End Function
 
    <DllImport("kernel32.dll")> Private Shared Function _
         CloseHandle(ByVal hObject As Integer) As Integer
    End Function
 
 
'Propertys
 
    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

VB RULEZ !