Here is the edited program:
vb
Private Sub Button_Click(sender As Object, e As EventArgs) Handles Button.Click
For a = 5 To 1 Step -1
For b = 1 To a
TextBox.AppendText(b)
Next
TextBox.AppendText(Environment.NewLine)
Next
End Sub
This program will display the following answers in the TextBox:
54321
5432
543
54
5