Dobrý den, čára přes událost Paint se vykreslí např takto:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim pn As New Pen(Color.Black, 1)
e.Graphics.DrawLine(pn, 100, 100, 500, 100)
End Sub
Nebo stáhnout powerpack jak Vám radí pan Linhart.
|