Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim MonCurseur As point
If x < 10 Or y < 10 Or x > Me.Width - 10 Or y > Me.Height - 30 Then
GetCursorPos MonCurseur
If x < 10 Then SetCursorPos MonCurseur.xx + 12, MonCurseur.yy
If y < 10 Then SetCursorPos MonCurseur.xx, MonCurseur.yy + 12
If x > Me.Width - 10 Then SetCursorPos MonCurseur.xx - 12, MonCurseur.yy
If y > Me.Height - 30 Then SetCursorPos MonCurseur.xx, MonCurseur.yy - 12
Else: Application.StatusBar = x & "-" & y
End If
End Sub