A progressbar can also measure action. Say for example, opening a text file:

Code:
    x = FileLen("C:\file.txt")
    ProgressBar1.Min = 0
    ProgressBar1.Max = x
    For i = 0 To x
        ProgressBar1.Value = i
    Next i
    Open "C:\file.txt" For Input As #1
        Text1.Text = Input$(LOF(1), 1)
    Close #1
    ProgressBar1.Value = ProgressBar1.Max