Membuat Segitiga Angka Dengan VB 2008

Dim x, y, z As Integer

        x = 1 : y = NumericUpDown1.Value

        TextBox1.Clear()

        Do While x <= y

            z = 1

            TextBox1.Text = _

            TextBox1.Text & Space(y - x)

            Do While z <= x

                TextBox1.Text = _

                TextBox1.Text & " " & z

                z += 1

            Loop

            TextBox1.Text = _

            TextBox1.Text & vbCrLf

            x += 1

        Loop