SnapToStepStatus example

Example for SnapToStepStatus property

Private Sub Command2_Click()
    CAvax1.Command = Avax.AvaxCommand.Circle_c
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    cAvax1.StartAvax()
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

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

    Dim ii As Short
    Dim txt As String
    Dim stepX As Single
    Dim stepY As Single
    Dim Answer As Boolean

    Dim PropValue As Boolean

    PropValue = cAvax1.SnapToStepStatus
    txt = "Snap status is :" & Str(PropValue)
    ii = MsgBox(txt)

    ' Set snap steps
    stepX = 5 : stepY = 5
    Answer = cAvax1.SnapToStepSet(stepX, stepY)


    PropValue = cAvax1.SnapToStepStatus
    txt = "Now, The snap status is :" & Str(PropValue)
    ii = MsgBox(txt)


End Sub