VBA Excel. Кнопка

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

Проблемма с кнопкой. Как сделать чтобы процедура выполня до тех пор пока не "отпустят" кнопку.

Решение задачи: «VBA Excel. Кнопка»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_MouseDown(<font color="blue">ByVal</font> Button <font color="blue">As</font> <font color="blue">Integer</font>, <font color="blue">ByVal</font> Shift <font color="blue">As</font> <font color="blue">Integer</font>, <font color="blue">ByVal</font> X <font color="blue">As</font> <font color="blue">Single</font>, <font color="blue">ByVal</font> Y <font color="blue">As</font> <font color="blue">Single</font>)
<font color="blue">stop</font>=false
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_MouseUp(<font color="blue">ByVal</font> Button <font color="blue">As</font> <font color="blue">Integer</font>, <font color="blue">ByVal</font> Shift <font color="blue">As</font> <font color="blue">Integer</font>, <font color="blue">ByVal</font> X <font color="blue">As</font> <font color="blue">Single</font>, <font color="blue">ByVal</font> Y <font color="blue">As</font> <font color="blue">Single</font>)
<font color="blue">stop</font>=true
<font color="blue">End</font> <font color="blue">Sub</font>
                        