晕忘记发内容了
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

Dim RunMe As Boolean '这个是全局变量
……
……
……
If (App.PrevInstance) Then
If RunMe Then
RunMe = False
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
End If

xie xie a ...:)