Paintpicture描画時のクリックイベント

質問

お知恵を貸してください！

ただいま「ランダムな場所にImageを描画して、そのイメージをクリックするとイベントが起きる」という
プログラムを組んでいます。

Paintpictureを使って、ランダムに描画することはできたのですが、
描画したイメージをクリックしてもイベントの動作を行ってくれません。
使用しているのはVB6.0です。

プログラムは以下のとおりです。
Imageは透過GIF（Image1）と保険にマスクイメージ（Image2）を使用しております。
-------
・描画プログラム

Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()

x = Int(rnd * Form1.Width) - (Image1.Width \ 2)
y = Int(rnd * Form1.Height) - (Image1.Height \ 2)
Form1.Refresh
Form1.PaintPicture Image2, x, y, , , , , , , vbSrcAnd
Form1.PaintPicture Image1, x, y, , , , , , , vbSrcPaint

End Sub
-------
・行動プログラム

Private Sub Image1_Click()
MsgBox "Score gat"
End Sub
-------

アドバイス、ご指摘お願いいたします。

回答No.1

MARU4812

当たり前というかなんと言うか。。。
Image1 を参考にして Form1 に書き写したのだから
Image1 のイベントなんて起こるわけがないですが。
Form1 のイベントで取ればいいだけでは？

お礼

そ　う　で　し　た　Σ（゜д゜）

大変失礼しました、ありがとうございます！