Try This:
Public Class Form1
Dim G As Graphics
Dim Dpen As New Pen(Color.Red, 5)
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
G = e.Graphics
G.DrawLine(Dpen, 100, 100, 500, 500)
End Sub
End...