Dim bmp As New Bitmap(100, 100)
   Dim g As Graphics = Graphics.FromImage(bmp)
   g.Clear(Drawing.Color.Gray)
 
   Dim pt1 As New Drawing.Point(10, 10)
   Dim pt2 As New Drawing.Point(40, 40)
   Dim myPen As New Drawing.Pen(Drawing.Color.Red, 4.2)
 
   g.DrawLine(myPen, pt1, pt2)
   PictureBox1.Image = bmp