【求助】用paintpicture打印出的图片可以有事件吗？像扫雷一样

Public Function Boom(x As Integer, y As Integer) As Integer
Dim i As Integer, j As Integer, m As Integer, n As Integer
n = 750: m = 200
For i = 1 To y
For j = 1 To x
Form1.PaintPicture LoadResPicture(100, 0), m, n
m = m + 240
Next
m = 200
n = n + 240
Next
End Function
我想在生成之后可以用鼠标点击生成的图片