fai così
dopo averle dichiarate ... puoi usarle ... supponiamo che tu desideri confinare il mouse in un area tipo un PanelGame ... un semplice pannello ...
Private Sub ConfinaMouse()
Dim retval As Long
'Inserisce le cordinate del Panel in ZonaConfineMouse
retval = GetWindowRect(PanelGame.Handle, ZonaConfineMouse)
'Confina il cursore nel PanelGame
retval = ClipCursor(ZonaConfineMouse)
End Sub
basterà chiamare la sub ... nel caso tu desiri ripristinare il movimento del mouse ...
Private Sub LiberaMouse()
Dim retval As Long
Dim Schermo As Long
' Cattura l'Handle dello schermo
Schermo = GetDesktopWindow()
' Inserisce le coordinate dello schermo in Zona
retval = GetWindowRect(Schermo, ZonaConfineMouse)
' LIBERA il cursore allo schermo
retval = ClipCursor(ZonaConfineMouse)
End Sub
se riesci a pensarlo puoi anche realizzarlo!
http://www.youtube.com/user/zirobyte75