Una pregunta sobre la matriz de visualización de matrices vb.net

'Este es el código en vb6, es básicamente el mismo en vb.net, puedes consultarlo

Private Sub cmdCommand1_Click()

Yo .AutoRedraw = True

Dim Grp

Grp = Array(1, 2, 3, 4, 5)

Dim i, j As Long

Dim StrPrt As String

For i = 0 To UBound(Grp)

'i es el desplazamiento

StrPrt = ""

Para j = i To UBound(Grp)

StrPrt = StrPrt amp(j)

Siguiente j

Para j = 0 To; i - 1

StrPrt = StrPrt amp; Grp(j)

Siguiente j

Me.Print StrPrt

Siguiente i

Fin del subtítulo