Vaini,vou postar um idéia que cada vez que a lista do gerenciador de tarefas for aberto essa função no timer vai esconder a janela.Coloque a propriedade do timer com o valor 100(Ou o valor desejado).
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
Const SW_HIDE = 0
Private Sub Timer1_Timer()
Dim janela as long
janela=FindWindow(vbNullString,"Gerenciador de Tarefas do Windows")
If janela>0 Then
ShowWindow janela,SW_HIDE
end if
End Sub
