[求助]在窗体事件中调用GetPoint失败的问题

clement

Private Sub UserForm_Click()
Dim vntPt as Variant
vntPt = ActiveDocument.Utility.GetPoint End Sub
运行时提示 "运行时错误'-2147467259(80004005) 方法'GetPoint'作用于对象'IAcadUtility'时失败. 但是选择"调试",再按F5运行时正常. 请问在窗体事件中应该如何调用GetPoint.

efan2000

先隐藏窗体，再调用与用户交互的函数，最后显示窗体。

2. Private Sub UserForm_Click()
3.            Me.Hide
4.        Dim vntPt as Variant
5.        vntPt = ActiveDocument.Utility.GetPoint
6.        Me.Show
7. End Sub

Private Sub UserForm_Click()            Me.Hide        Dim vntPt as Variant        vntPt = ActiveDocument.Utility.GetPoint        Me.Show End Sub

clement

多谢超版赐复.