求助，窗体隐藏和显示

'隐藏已经知道窗体名称
Private Sub Command1_Click()
pID = 0&
Set objs = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In objs
If obj.Name = "工程0.exe" Then pID = obj.ProcessID
Next
If pID Then EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub

'进程名要准确，注意大小写

'模块

Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public pID&

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
GetWindowThreadProcessId hwnd, ppID&
If ppID = pID Then ShowWindow hwnd, 0&
EnumWindowsProc = True
End Function

这则代码告诉你