Barras de dezplazamiento

Barra de desplazamiento:

Codigo:

Cambiamos los límites de la  barra hasta el volumen deseado.

En este caso de 0 a 100

Private Sub VScroll1_Change()

Text1.Text = VScroll1.Value

End Sub