Sposta questo codice :
codice:
Picture1.DrawWidth = 9 
Picture1.ForeColor = RGB(VScrollRed, VScrollGreen, VScrollBlue)
nell'evento MouseDown

E' assurdo impostare queste proprietà OGNI volte che muovi il mouse, è inutile perchè mentre lo muovi esse non possono variare, con lo svantaggio di appesantire l'esecuzione dell'evento.


Inoltre, prova ad inserire un
DoEvents

dopo la riga:
Picture1.PSet (X, Y)