Command example

Example for Command property

Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
    Select Case Combo1.Text
    Case "Cancel"
        CAvax1.Command = Avax.AvaxCommand.Cancel_c
    Case "Zoom"
        CAvax1.Command = Avax.AvaxCommand.Zoom_c
    Case "Previous"
        CAvax1.Command = Avax.AvaxCommand.Previous_c
    Case "Line"
        CAvax1.Command = Avax.AvaxCommand.Line_c
    Case "Circle"
        CAvax1.Command = Avax.AvaxCommand.Circle_c
    Case "Ellipse"
        CAvax1.Command = Avax.AvaxCommand.Ellipse_c
    End Select
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
    Combo1.Items.Add("Cancel")
    Combo1.Items.Add("Zoom")
    Combo1.Items.Add("Previous")
    Combo1.Items.Add("Line")
    Combo1.Items.Add("Circle")
    Combo1.Items.Add("Ellipse")
    Combo1.Text = ""
End Sub

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    cAvax1.EndAvax()
End Sub