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