CONFINARE IL MOUSE ALL’INTERNO DI CERTE COORDINATE

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

    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

   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