Akcja w RichTextBoxie po kliknięciu Buttona.

[Atomek]

Witam, jestem laikiem w programowaniu w Visual Basic i proszę was o pomoc 

Chciałbym napisać kod, w którym po kliknięciu w button w richtextboxie wyświetlają się kolejno podane przeze mnie teksty

Ktoś ma jakiś pomysł?

Chodzi mi o taki efekt:

Czyli, aby: W rich boxie pokazywały się napisy, które chce podczas gdy progressbar się ładuje (i aby pod progressbarem był procentowy status załadowania progressbara).
Z góry dziękuję za pomoc.

[Crossiik]

zacytuję tutaj kawałek problemu innego użytkownika, wystarczy zmienić "label4.text" na richtextbox1.appendtext("abc") & vbnewline 
 

 

 

 

 

If ProgressBar1.Value = 1 Then
                Label4.Text = "Ładowanie"
            End If
            If ProgressBar1.Value = 15 Then
                Label4.Text = "Łączenie ze serwerem"
            End If
            If ProgressBar1.Value = 25 Then
                Label4.Text = "Wczytywanie ustawień konta"
            End If
            If ProgressBar1.Value = 45 Then
                Label4.Text = "Wczytywanie danych..."
            End If
            If ProgressBar1.Value = 55 Then
                Label4.Text = "Wczytywanie danych - zakończone!"
            End If
            If ProgressBar1.Value = 80 Then
                Label4.Text = "Łączenie z bazą..."
            End If
            If ProgressBar1.Value = 86 Then
                Label4.Text = "Wczytano pomyślnie!"
            End If
            If ProgressBar1.Value = 95 Then
                Label4.Text = "Proces zakończył się SUKCESEM!"
            End If
        End If

[Atomek]

zacytuję tutaj kawałek problemu innego użytkownika, wystarczy zmienić "label4.text" na richtextbox1.appendtext("abc") & vbnewline 

 

 

 

 

 

If ProgressBar1.Value = 1 Then

                Label4.Text = "Ładowanie"

            End If

            If ProgressBar1.Value = 15 Then

                Label4.Text = "Łączenie ze serwerem"

            End If

            If ProgressBar1.Value = 25 Then

                Label4.Text = "Wczytywanie ustawień konta"

            End If

            If ProgressBar1.Value = 45 Then

                Label4.Text = "Wczytywanie danych..."

            End If

            If ProgressBar1.Value = 55 Then

                Label4.Text = "Wczytywanie danych - zakończone!"

            End If

            If ProgressBar1.Value = 80 Then

                Label4.Text = "Łączenie z bazą..."

            End If

            If ProgressBar1.Value = 86 Then

                Label4.Text = "Wczytano pomyślnie!"

            End If

            If ProgressBar1.Value = 95 Then

                Label4.Text = "Proces zakończył się SUKCESEM!"

            End If

        End If

W przypadku labela działa, ale jak zmieniłem to mam errora

[Crossiik]

Fajnie było by jak byś wstawił cały kod.

[Atomek]

Jak usunąłem "& vbnewline" to problem znika, ale niestety nie ma tekstu w nowej linijce

 

Fajnie było by jak byś wstawił cały kod.

Public Class Form1

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    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
             richtextbox1.appendtext("abc") & vbnewline 
        End If
        If ProgressBar1.Value = 15 Then
            Label4.Text = "Łączenie ze serwerem"
        End If
        If ProgressBar1.Value = 25 Then
            Label4.Text = "Wczytywanie ustawień konta"
        End If
        If ProgressBar1.Value = 45 Then
            Label4.Text = "Wczytywanie danych..."
        End If
        If ProgressBar1.Value = 55 Then
            Label4.Text = "Wczytywanie danych - zakończone!"
        End If
        If ProgressBar1.Value = 80 Then
            Label4.Text = "Łączenie z bazą..."
        End If
        If ProgressBar1.Value = 86 Then
            Label4.Text = "Wczytano pomyślnie!"
        End If
        If ProgressBar1.Value = 95 Then
            Label4.Text = "Proces zakończył się SUKCESEM!"
        End If
    End Sub
End Class

Już sobie poradziłem.
Zmieniłem na RichTextBox1.Text = RichTextBox1.Text & "abd" & vbCrLf