Spostare la barra indicatrice di una ProgressBar con il mouse

Per spostare manualmente con il mouse la barra colorata che indica il valore di una ProgressBar, si possono adottare alemno due modalità.

Cliccando sulla ProgressBar

In questo caso la barra colorata si imposterà fin là dove abbiamo cliccato nella ProgressBar:

Public Sub ProgressBar1_MouseDown()   ' ...oppure "_MouseUp()"

  ProgressBar1.Value = Mouse.X / ProgressBar1.W

End

Spostando il mouse sulla ProgressBar

E' possibile far scorrere la barra colorata spostando il mouse, mentre si tiene premuto con il tasto sulla ProgressBar:

Public Sub ProgressBar1_MouseMove()

 ProgressBar1.Value = Mouse.X / ProgressBar1.W

End