请教如何由鼠标点击块得到其句柄？

hutao722

仿照《AutoCAD vba 二次开发教程》中第14章，写了一个窗体模块，主要用来通过鼠标点击块，获取块的句柄。主要用到以下代码，但发现句柄为空，而且程序也不认点击的块，请高手指点，谢谢

ThisDrawing.Utility.GetEntity obj,basepnt,vbCrLf & "选择"

entHandle=obj.Handle

If Not Typeof obj Is AcadBlock Then Exit Sub