How come my following code is failing to hide the mouse?
Everything else is triggering?



Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Dim tray&

'Hide Taskbar
tray& = findwindow("Shell_TrayWnd", vbNullString)
x = showWindow(tray&, SW_HIDE)

'Hide Mouse Cursor
ShowCursor 0

'Start the Timer to watch for key Presses
tmrVisible.Enabled = True
End Sub

Private Sub Form_Terminate()
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Show Taskbar
tray& = findwindow("Shell_TrayWnd", vbNullString)
x = showWindow(tray&, SW_SHOW)
'Show Mouse Cursor
ShowCursor 1
Unload Me
End Sub

Private Sub tmrVisible_Timer()
'Check whether the ((Shift) + (Numeric pad's +)) keys have been pressed.
'If they have been pressed then Return System Functions to normal.
If (GetAsyncKeyState(&H10)) And (GetAsyncKeyState(&H6B)) Then
Unload Me
End If
End Sub