I think I found a kind of solution...
I added a MouseMove event with a msgbox to run the button code:
Private Sub PanComplete_MouseMove( _
Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "Run PanComplete Code?", vbYesNo
If vbYes Then
DoEvents
PanComplete_Click 'calls my...