如何用VB改写VBA代码

draw

在VBA中用户在屏幕交互选取实体时用下面语句：
ThisDrawing.Utility.GetEntity returnobj, basepnt, "请选取一个实体"
其中 returnobj as As Object, basepnt 不限类型。
在VB中如何改写？

thankyou

先引用ACAD类型库
DIM ACADAPP AS ACADAPPLICATION
ACADAPP.ACTIVEDOCUMENT.Utility.GetEntity returnobj, basepnt, "请选取一个实体"

draw

ok   多谢