Вот так это будет выглядеть, при нажатии на кнопку Шут
выскачит сообщение с числом на прогрессбаре.
сам прогрессбар ходит в обе стороны , для демонстрации конешно

код простой. На форму закиньте таймер (интервал=50 )
кнопку
лябель
пикчербокс ( он и будет прогрессбаром
забейте текст:

Dim qw&, mw&, cw&

Private Sub Command1_Click()
Msg$ = "Your power=" & qw
Response% = MsgBox(Msg$, 1, "test")
End Sub

Private Sub Form_Load()
qw = 0 'counter
mw = 1 'direct
cw = 12 'color
End Sub

Private Sub Timer1_Timer()
qw = qw + mw
If (qw = Picture1.ScaleWidth) Then mw = -1: cw = 15
If (qw = 0) Then mw = 1: qw = 1: cw = 12
Picture1.Line (qw, 1)-(qw, Picture1.ScaleHeight - 1), QBColor(cw)
Label1.Caption = qw
End Sub

поясню:
qw -счётчик
mw - направление (1 или -1)
cw - цвет ( серый или красный)

If (qw = Picture1.ScaleWidth) Then mw = -1: cw = 15
If (qw = 0) Then mw = 1: qw = 1: cw = 12
В этих строчках определяется в какую сторону рисовать.