MouseDown事件（按下鼠标按钮时即可触发此事件）

【语法格式】

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)

【参数含义】

Button：返回一个整数，该整数用于标识按下的鼠标键是哪一个（左键、右键或中间键）。

Shift：返回一个整数，在Button参数指定的键被按下或被释放的情况下，该整数对应于Shift、Ctrl和Alt键的状态。

X，Y：返回一个鼠标指针的当前位置。

【实例】按下鼠标左键，在图片框中心画一个半径为500，颜色为红色的圆；按下鼠标右键，在图片框中心画一个半径为100，颜色为黑色的圆。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

X = Picture1.Width / 2

Y = Picture1.Height / 2

If Button = 1 Then

Picture1.Circle (X, Y), 500, RGB(255, 0, 0)

End If

If Button = 2 Then

Picture1.Circle (X, Y), 200, RGB(0, 0, 0)

End If

End Sub