And can explain to be why exactly this only displays everthing in a list

Private Sub Form_Load()
Randomize
Dim strscores(4, 9) As String
Dim introw As Integer
Dim intcol As Integer

For introw = 1 To 4
For intcol = 1 To 9
strscores(introw, intcol) = Int(9 * Rnd + 1)
Next intcol
Next introw

For introw = 0 To 0
For intcol = 1 To 9
strscores(introw, intcol) = "Hole " & intcol
Next intcol
Next introw

For introw = 1 To 4
For intcol = 0 To 0
strscores(introw, intcol) = "Player " & introw
Next intcol
Next introw

For introw = LBound(strscores, 1) To UBound(strscores, 1)
For intcol = LBound(strscores, 2) To UBound(strscores, 2)
lstgolfscores.AddItem strscores(introw, intcol)
Next intcol
Next introw

End Sub