por favor necessito de ajuda para desabilitar o ctrl+alt+del no win xp

' Declarações

Private Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
Private Const NIM_DELETE = &H2
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long'

 

 

' CODIGO

Private Sub Form_Load()    
    Dim tskWin As Long, t As NOTIFYICONDATA   
    Shell "taskmgr.exe", vbHide
    Do Until tskWin <> 0
        tskWin = FindWindow("#32770", "Windows Task Manager")
    Loop
    t.hWnd = tskWin
    Shell_NotifyIcon NIM_DELETE, t   
End Sub

' Mais simples :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_HIDE = 0

 

Private Sub Timer1_Timer()
Dim hwnd As Long
   
    hwnd = FindWindow("#32770", vbNullString)
       
    If hwnd > 0 Then ShowWindow hwnd, SW_HIDE

End Sub