This does not appear to work on XP

----Put This On A Form----
Private Sub Form_Load()
HideMeFromTaskList
End Sub

Private Sub HideMeFromTaskList()
On Error Resume Next
RegisterServiceProcess GetCurrentProcessId, 1
End Sub

----Put This In A Module----

Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long