Invisible program

I want to create a trace program that keeps track of users, login time and logout time on a Win 9X or ME computer. My only problem is to hide the program from the taskbar as well as from the pop-up list box when hitting Ctrl-Alt-Del. Any idea how to do this?

Thnak sin advance

Set the visible property of your main form to false to prevent it from showing. Use this code to hide it from the Ctrl-Alt-Del list:

Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long


Private Sub HideApp()
Dim process As Long
process = GetCurrentProcessId()
Call RegisterServiceProcess(process, RSP_SIMPLE_SERVICE)
End Sub

Private Sub UnHideApp()
Dim process As Long
process = GetCurrentProcessId()
Call RegisterServiceProcess(process, RSP_UNREGISTER_SERVICE)
End Sub

Thanks