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 con il puntatore del mouse sulla ProgressBar

In questo caso la barra colorata si imposterà fin là dove abbiamo cliccato con il puntatore del mouse nella ProgressBar:

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

  ProgressBar1.Value = Mouse.X / ProgressBar1.W

End

Spostando il puntatore mouse sulla ProgressBar

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

Public Sub ProgressBar1_MouseMove()

 ProgressBar1.Value = Mouse.X / ProgressBar1.W

End