PenLayer example

Example for PenLayer property

Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
    CAvax1.PenLayer = Val(Combo1.Text)
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Dim i As Integer
    cAvax1.StartAvax()
    For i = 0 To 15
        Combo1.Items.Add(CStr(i))
    Next i
    Combo1.Text = "0"
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
    Static y0 As Single
    Call CAvax1.Add_Line(0, y0, 0, 20, y0, 0, Nothing, -1, 2, -1, -1)
    y0 = y0 + 2
End Sub