VB program hides Running code

' Application in Task ManagerProgramHide in bar
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 ()
' BelowCodeProgram stealth
' Hide the application in the Task Manager
Dim RC As   Long
Dim Ownerhwnd As   Long
Me . Visible =   False
Ownerhwnd = Getwindow ( Me . Hwnd, gw_owner)
RC = Showwindow (ownerhwnd, sw_hide)
End sub