mouseMove anywhere

As you can see below in the code I want to start an action when I move the mouse, but I made my form invisible, so It's loaded in the memory. Actualy I has to work like a screesaver, when I mouve the mouse the action may not start.

I need to do a presentation in a couple of houres and I'm realy desesperated, I'm still looking, but it's so difficult

zo plzzzz help me

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
tussenTimer.Enabled = False
tussenTimer.Interval = 60000
tussenTimer.Enabled = True
End Sub
mous


so it had to work on the whole screen, not only on the form :(