vb程序隐藏运行代码

' 在任务管理器的应用程序栏中隐身
Private   Declare   Function  GetWindow  Lib   " user32 "  ( ByVal  hwnd  As   Long ,  ByVal  wCmd  As   Long )  As   Long
Private   Declare   Function  ShowWindow  Lib   " user32 "  ( ByVal  hwnd  As   Long ,  ByVal  nCmdShow  As   Long )  As   Long

Private   Const  SW_HIDE  =   0
Private   Const  GW_OWNER  =   4
Private   Const  WM_CLOSE  =   & H10

Private   Sub  Form1_Load()
     ' 以下代码使程序隐身
     ' 在任务管理器的“应用程序”栏隐藏
      Dim  rc  As   Long
     Dim  ownerhwnd  As   Long
     Me .Visible  =   False
    ownerhwnd  =  GetWindow( Me .hwnd, GW_OWNER)
    rc  =  ShowWindow(ownerhwnd, SW_HIDE)
end sub