Make a Project Using Array in Visual Basic and Transpose the array into another list box

Dim A(1 To 4, 1 To 4) As variant

Private Sub Command1_Click()

Dim name As Variant

For i = 1 To 4

name = ""

For j = 1 To 4

A(i, j) = InputBox(" Enter Num for Row " &i& " and Col " & j)

name = name & Space(3) & A(i, j)

Next

List1.AddItem name

Next

End Sub

Private Sub Command2_Click()

List2.Clear

Dim name As Variant

For i = 1 To 4

name = ""

For j = 1 To 4

name = name & Space(3) & A(j, i)

Next

List2.AddItem name

Next

End Sub

Output: