Private SubClick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 

Print "VB&nbs