<name> Sample Program Source Code

Private Sub Form_Load()
  etLine1.Enabled = True
  Dim myMediaModes As Long
  Dim CurrentMode As Long
  Text1.text = ""
  ComboDevice.Clear
  etLine1.DeviceID = 0 ' clear device box and use devicelist to fill the list with TAPI devices
  For L = 0 To etLine1.DeviceCount - 1
     ComboDevice.AddItem etLine1.DeviceList(L)
  Next L
  If ComboDevice.ListCount > 0 Then
     ComboDevice.text = ComboDevice.List(0)
  End If
  ComboDevice.ListIndex = 0
End Sub

Private Sub Command1_Click()
  Text1.text = ""
  etLine1.DeviceID = ComboDevice.ListIndex
  myMediaModes = etLine1.DeviceMediaModesAvailable
  CurrentMode = LINEMEDIAMODE_UNKNOWN
  WriteLog ("etLine1.DeviceMediaModesAvailable = " & Str(etLine1.DeviceMediaModesAvailable))
  Do While CurrentMode <= LINEMEDIAMODE_VOICEVIEW
    If (etLine1.DeviceMediaModesAvailable And CurrentMode) <> 0 Then
    WriteLog (etLine1.StringLINEMEDIAMODE(etLine1.DeviceMediaModesAvailable And  CurrentMode))
    End If
    CurrentMode = CurrentMode * 2
Loop

WriteLog (vbCrLf & vbCrLf & "etLine1.DeviceCapabilitiesBearerModes = " & _
Str(etLine1.DeviceCapabilitiesBearerModes))
CurrentMode = LINEBEARERMODE_VOICE
Do While CurrentMode <= LINEBEARERMODE_RESTRICTEDDATA
   If (etLine1.DeviceCapabilitiesBearerModes And CurrentMode) <> 0 Then
   WriteLog (etLine1.StringLINEBEARERMODE(etLine1.DeviceCapabilitiesBearerModes And CurrentMode))
   End If
   CurrentMode = CurrentMode * 2
Loop
End Sub

Private Function WriteLog(text As String) As String
   Text1.text = Text1.text & text & vbCrLf
End Function

Private Sub Form_Resize()
  If Form1.Height < 3750 Then
     Form1.Height = 3750
  Else
     Text1.Height = Form1.ScaleHeight - 1400
     Command1.Top = Form1.ScaleHeight - 550
     CommandInfo.Top = Form1.ScaleHeight - 550
     etLine1.Top = Form1.ScaleHeight - 480
  End If
  If Form1.Width < 4230 Then
     Form1.Width = 4230
  Else
     CommandInfo.Left = Form1.ScaleWidth - 600
     Text1.Width = Form1.ScaleWidth - 240
  End If
End Sub

Private Sub CommandInfo_Click()
  MsgBox (" etDecodeBitFlags Sample Program" & vbCrLf & vbCrLf & "Copyright(c) 2003 ExceleTel Inc." _
& vbCrLf & vbCrLf & " www.exceletel.com")
End Sub