[求助]：为何总要点击几次才能获取点？

topcool

为何总要点击几次才能获取点？
部分代码如下：
Dim MS2004 As New MicroStationDGN.Application
Dim oInputQ As CadInputQueue

oInputQ = MS2004.CadInputQueue

If oInputQ.GetInput.InputType <> MsdCadInputType.msdCadInputTypeDataPoint Then
    MS2004.ShowMessage("用户取消")
    Exit Sub
End If

Dim originPoint As Point3d
originPoint = oInputQ.GetInput.Point

我知道错在哪儿了，原来我在程序里面使用了几次GetInput方法：
现将程序修改如下：
Dim MS2004 As New MicroStationDGN.Application
Dim oInputQ As CadInputQueue
Dim oInputM As CadInputMessage

oInputQ = MS2004.CadInputQueue
oInputM = oInputQ.GetInput(MsdCadInputType.msdCadInputTypeAny)

If oInputM.InputType <> MsdCadInputType.msdCadInputTypeDataPoint Then
    MS2004.ShowMessage("用户取消")
    Exit Sub
End If

Dim originPoint As Point3d
originPoint = oInputM.Point

嘿嘿，学MS VBA真麻烦，只能看英文帮助——
什么时候才有中文教程呀？？