Public Sub ShowhWnd(strTitle As String, Show As Boolean)
Dim hFirst As Long
hFirst = FindWindow(vbNullString, strTitle)
Do While hFirst <> 0
ShowWindowAsync hFirst, IIf(Show, SW_SHOW, SW_HIDE)
hFirst = FindWindowEx(0&, hFirst, vbNullString, strTitle)
Loop
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024