como utilizar el progresivebar en vb

[sdemingo]

Iniciado por alex the pc boy

tengo la duda de como utilizar el progresivebar para cargar una pista de audio

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub AumentaBarra(cantidad As Integer)

ProgressBar1.Value = cantidad

End Sub

Private Sub Command1_Click()
    AumentaBarra (10)
    Sleep 1000
    AumentaBarra (20)
    Sleep 1000
    AumentaBarra (30)
    Sleep 1000
    AumentaBarra (40)
    Sleep 1000
    AumentaBarra (50)
    Sleep 1000
    AumentaBarra (60)
    Sleep 1000
    AumentaBarra (70)
    Sleep 1000
    AumentaBarra (80)
    Sleep 1000
    AumentaBarra (90)
    Sleep 1000
    AumentaBarra (100)
    Sleep 1000
    End
End Sub

lo suyo es utilizarla en un proceso largo que de vueltas de bucle, y por cada vuelta de bucle ir incrementando el value de la progressbar