etWindowsDialingProperties Sample Program Source Code

Private Sub Form_Load()
    etLine1.Enabled = True
    CheckUseDialingProps.Value = Checked
    CheckUseDialingProps_Click
End Sub

Private Sub CheckUseDialingProps_Click()
    If CheckUseDialingProps.Value = Checked Then
        etLine1.DeviceTranslatePhoneNumber = True
    Else
        etLine1.DeviceTranslatePhoneNumber = False
    End If
    Text1_Change
End Sub

Private Sub CommandSetLocation_Click()
    If Not etLine1.SetLocation Then
        MsgBox ("Error trying to display Windows Dialing Properties dialog")
    End If
End Sub

Private Sub Text1_Change()
    etLine1.CallPhoneNumber = Text1.Text
    Text2.Text = etLine1.CallPhoneNumber
End Sub