1.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Line (1200, 600)-(3600, 3000), , B
  Circle (2400, 1800), 200
  Circle (2400, 1800), (200 + 200)
  Circle (2400, 1800), (200 + 200 + 200)
  Circle (2400, 1800), 800
  Circle (2400, 1800), 1000
  Circle (2400, 1800), 1200
  Line (1000, 1800)-(3800, 1800)
  Line (2400, 400)-(2400, 3200)
End Sub



2.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Line (X, Y)-(x+400, y+400), vbred ,B
End Sub



3.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Circle (X, Y), 350, vbYellow
End Sub