不屬于本工程的

熱心網友

我這里沒有VB ，你先試一下吧在聲明里加入下面的程序private declare Function ShowWindowAsync Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Longprivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongSub HideWnd(byval WndText as string)dim hWndHide as longhwndhide=findwindow (0,wndtext)showwindowasync hwndhide,0end sub在過程里面調用：hidewnd ""你試試吧。