Private Type posXY
   oldX As Single
   oldY As Single
   startX As Single
   startY As Single
End Type
 
Dim xy As posXY
 
Private Sub Form_Load()
   Me.DrawWidth = 2
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
   xy.startX = X
   xy.startY = Y
   xy.oldX = X
   xy.oldY = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
   If Button = 1 Then
      Me.Line (xy.startX, xy.startY)-(xy.oldX, xy.oldY), Me.BackColor, BF
      Me.Line (xy.startX, xy.startY)-(X, Y), RGB(26, 69, 151), BF
      Me.Line (xy.startX, xy.startY)-(X, Y), RGB(153, 217, 234), B
      xy.oldX = X
      xy.oldY = Y
   End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
   If Button = 1 Then
      Me.Line (xy.startX, xy.startY)-(X, Y), Me.BackColor, BF
   End If
End Sub