怎样为userform中的image动态定义鼠标点击事件

Question

题目可能说得不清楚，我要实现如下功能：在一个Userform中，显示某个目录下的所有图片（用Image控件），鼠标点击某个图片，可以获得该图片的文件名。我的做法是：
Dim theImageBox As Image
Set theImageBox = thePage.Controls.Add("Forms.Image.1", "image", True)
theImageBox.Move X, Y, picWidth, picHeight
theImageBox.Picture = LoadPicture(fullFileName)问题是我无法定义每个Image的鼠标点击事件。
请各位不吝赐教，我只要实现所述功能，不一定要用Image控件。

Answer 1

yigepure你好，你的意思是不是要定义Class Model，继承Image类，我没用过继承，如果你说的是这个意思，我就得去学习一下了。
不知我理解的对不对，感谢指导

Answer 2

好像用继承的方法不行啊。
我要用下面一段代码，theImageBox是由Add方法返回的，不是我自己定义的。Dim theImageBox As Image
Set theImageBox = thePage.Controls.Add("Forms.Image.1", "image", True)
theImageBox.Move X, Y, picWidth, picHeight请高手说的详细一点点吧，我是菜鸟，谢谢帮忙啊！怎样定义theIamgeBox的click事件？

Answer 3

由于一个文件夹下有多张图片，因此会产生多个Image，用withevents好像只能针对一个image

Answer 4

我还是没有解决这个问题，最终是在VB中做了一个ActiveX控件，简单的把Image包装进去了，然后在VBA中调用window API注册事件响应函数。如果哪位仁兄有别的方法，麻烦回帖。
谢谢。