"udawanie" instalacji programu.

Cześć
jak zrobić coś takiego, że po kliknięciu przycisku "Dalej" (screen jest na samym dole tego postu) pasek postępu zacznie się ładować a wraz ze zmianą jego wartości tekst "Label1" zacznie się zmieniać?

Aktualnie mój kod wygląda tak:

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(3.5)        If ProgressBar1.Value = 5 Then            Label1.Text = "tekst1"        End If        If ProgressBar1.Value = 10 Then            Label1.Text = "teskt2"        End If

Screen:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then Label1.Text = "Tekst1"        If ProgressBar1.Value = 35 Then Label1.Text = "Tekst2"        If ProgressBar1.Value = 100 Then Label1.Text = "Tekst3"        If ProgressBar1.Value = ProgressBar1.Maximum Then            Timer1.Stop()        End If

Tak powinien wyglądać kod. 

Wielkie dzięki
Z programem Visual Basic spotkałem się pierwszy raz i dlatego mój kod jest taki brzydki, z czasem będzie coraz ładniejszy

dzięki, do zamknięcia.