Как задать курсор для одной кнопки когда Screen.PousePointer = 11 - VB

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

Как задать курсор для одной кнопки когда Screen.PousePointer = 11. Совершается длительный процесс, установлен общий курсор "Часы", а над кнопкой отменить нужно чтобы он был обычным

Решение задачи: «Как задать курсор для одной кнопки когда Screen.PousePointer = 11»

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

                            Option Explicit

Private Sub Command1_MouseMove(Button <font color="blue">As</font> Integer, Shift <font color="blue">As</font> Integer, X <font color="blue">As</font> Single, Y <font color="blue">As</font> Single)
    Screen.MousePointer = vbArrow
<font color="blue">End</font> Sub

Private Sub Form_Load()

 Screen.MousePointer = vbHourglass

<font color="blue">End</font> Sub

Private Sub Form_MouseMove(Button <font color="blue">As</font> Integer, Shift <font color="blue">As</font> Integer, X <font color="blue">As</font> Single, Y <font color="blue">As</font> Single)
 Screen.MousePointer = vbHourglass
<font color="blue">End</font> Sub
                        