[{{BLaZe_RoX}}]

Private Sub Form1_Load()

End Sub

Private Sub Button1_Click()
   Timer1.Enable = True
End Sub



Private Sub Timer1_Timer()
        If ProgressBar1.Value < ProgressBar1.Max Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        End If
        If ProgressBar1.Value >= ProgressBar1.Max Then
            Text1.Text = rrrrr
        End If
    End Sub

то есть, вы имели ввиду что все должно в итоге выглядеть так?
Если да, то прогресс бар даже не начинает так сказать наполняться...
Пожалуйста напишите кто нибудь полный код...всю программу.. А то получается, что один человек знает один кусок программы, другой человек - другой кусок...а в итоге ничего не получается...Но всем ранее отвечавшим, всё равно большое спасибо!)