Ограничить перемещение курсора - VB

Формулировка задачи:

Как ограничить перемещение курсора по круговой ттраектории с определенным радиусом в определенной позиции формы ? Знаю что lock курсор но не знаю как

Решение задачи: «Ограничить перемещение курсора»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long 'для постановки курсора мышки по координатам
Dim a, L
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then Unload Me
End Sub
 
Private Sub Часы1_Timer()
    Dim X, Y
    L = 200
    X = L * Sin(a) + 2 * L
    Y = L * Cos(a) + 2 * L
    Call SetCursorPos(X, Y)
    a = a + 0.1
End Sub
                        