要显示对话框，让我们在类中创建一个把窗体实例化为有模式对话框的命令函数。下面的实现的代码：

<CommandMethod("MODALFORM")>_ 

PublicSubShowModalForm() 

DimmodalFormAsModalForm=NewModalForm() 

Application.ShowModalDialog(modalForm) 

EndSub 

编译、装载并在AutoCAD中运行MODALFORM命令来看看对话框是否可以工作。试试在对话框的右下角调整对话框的大小，然后关闭它。注意，重新使用MODALFORM命令时，对话框会出现在你上次离开的地方！这是ShowModalDialog方法的一个特征。大小和位置值被AutoCAD保存了。