[求助]使用SelectOnScreen的奇怪现象

ag503685496

程序如下：

sub main()

Dim cad As Object
Dim ss As Object
Set cad = GetObject(, "AutoCAD.application")
cad.WindowState = 1
AppActivate cad.Caption
Set ss = cad.application.activedocument.SelectionSets.Add("s")
ss.SelectOnScreen
Load Form1
Form1.Show
AppActivate Form1.Caption

end sub

用尽一切办法也不能在选择目标之后自动激活form1！如果没有ss.SelectOnScreen，则是可以激活的。

请问这是什么原因啊?

另：form1窗体在在任务栏闪烁，就是不出来

baby528

能不能先装入Form，执行Hide后再Select，然后再Show

ag503685496

您好，试了试，还是不行。我尝试了许多遍，只要用了SelectOnScreen,就不能激活窗体的焦点！