Here you go, try something like this to get your line:
VB Code:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim gr As Graphics Dim pen As Pen pen = New Pen(System.Drawing.Color.Black) pen.Width = 5 gr = e.Graphics gr.DrawLine(pen, 10, 10, 200, 200) End Sub




Reply With Quote