一段为防止应用程序从副执行的代码求解释
晕忘记发内容了
If (App.PrevInstance) Then
mWnd = FindWindow(vbNullString, "Menu")
If (mWnd <> 0) Then
If hWnd Then
If IsIconic(hWnd) Then
Call ShowWindow(hWnd, SW_RESTORE)
End If
End If
Unload Me
Exit Sub
End If
End If