PenLineStyle example

Example for PenLineStyle property

Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged
    CAvax1.PenLineStyle = 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 10
        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, 30, y0, 0)
    y0 = y0 + 2
End Sub