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 può adottare il seguente semplice codice:

Public Sub ProgressBar1_MouseDown()

  ProgressBar1.Value = Mouse.X / ProgressBar1.W

End

E' possibile anche 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