etTransfer Sample Program Source Code

Private Sub CheckActive_Click()
    If CheckActive.Value = 0 Then
        If etLine1.DeviceActive Then
            etLine1.DeviceActive = False
            If etLine1.DeviceActive Then
                CheckActive.Value = 1
            End If
        End If
    Else
        If Not etLine1.DeviceActive Then
            If (etLine1.AddressCapabilitiesCallFeatures And _
                LINECALLFEATURE_SETUPTRANSFER) = 0 Then
                MsgBox ("This device does not support Supervised Transfers.")
            End If
            etLine1.DeviceActive = True
            If Not etLine1.DeviceActive Then
                CheckActive.Value = 0
            End If
        End If
    End If
End Sub

Private Sub ComboDevice_Click()
    If etLine1.DeviceActive Then
        CheckActive.Value = 0
    End If
    etLine1.DeviceID = ComboDevice.ListIndex
End Sub

Private Sub CommandDial_Click()
    etLine1.CallPhoneNumber = TextCallPhoneNumber.Text
    If Str(TextCallParameterAddress.Text) = 0 Then
        etLine1.CallParametersDefaults = True
    Else
        etLine1.CallParameters.Defaults = False
        etLine1.CallParametersAddressID = Str(TextCallParameterAddress.Text)
    End If
    etLine1.CallDial
End Sub

Private Sub CommandThreeWay_Click()
    etLine1.TransferThreeWay
End Sub

Private Sub CommandTransferComplete_Click()
    etLine1.TransferComplete
End Sub

Private Sub CommandTransferDial_Click()
    etLine1.TransferPhoneNumber = TextTransferPhoneNumber.Text
    If Str(TextTransferParameterAddress.Text) = 0 Then
        etLine1.TransferParametersDefaults = True
    Else
        etLine1.TransferParametersDefaults = False
        etLine1.TransferParametersAddressID = _
                            Str(TextTransferParameterAddress.Text)
    End If
    etLine1.TransferPrimaryCall = etLine1.CallHandle
    etLine1.TransferDial
End Sub

Private Sub CommandTransferSwapHold_Click()
    etLine1.TransferSwapHold
End Sub

Private Sub etLine1_OnDisconnected(ByVal CallHandle As Long)
    etLine1.CallHandle = CallHandle
    etLine1.CallHangup
End Sub

Private Sub Form_Load()
    'Enabled all ExceleTel TeleTools controls before using them
    etLine1.Enabled = True

    ComboDevice.Clear
    etLine1.DeviceID = 0
    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
    etLine1.TeleScopeVisible = True
End Sub