下面的代码是打开一个窗体XJ!.EXE后,关闭当前窗体.但如何编写,如果当前窗体是某个窗体则不被关闭的代码?(设某个当前窗体为OL.FRM或OL.EXE)
Private Sub Command1_Click()
Shell "Rundll32.exe url.dll, FileProtocolHandler " & App.Path & "\xj1.exe", vbNormalFocus
End

[此贴子已经被作者于2006-10-21 11:59:39编辑过]