イベントの利用

Pictureコントロールのマウス操作を検知するイベントを活用する．

（マウス座標を知ることができるイベントを用いる）

ここではMouseDownを用いている．

→MouseMoveを用いると，ドラッグしている間，

　このサブルーチンが稼動する．

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

If Button = vbRightButton then

Text1.Text = Picture1.Point(X, Y)

End IF

End Sub

(Picture1_MouseMoveに変更してみよう）