Public Class Form1
    Dim arr(1, 2) As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        arr(0, 0) = Now.ToString("dd. MMM. yyyy")
        arr(0, 1) = Now.ToString("HH:mm:ss")
        arr(0, 2) = "Meier"
        arr(1, 0) = Now.ToString("dd. MMM. yyyy")
        arr(1, 1) = Now.ToString("HH:mm:ss")
        arr(1, 2) = "Müller"
        ListView1.View = View.Details
        ListView1.Columns.Add("Nr.", 30, HorizontalAlignment.Center)
        ListView1.Columns.Add("Datum", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Uhrzeit", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Spielername", 100, HorizontalAlignment.Center)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim LVI As ListViewItem
        For i As Int32 = 0 To arr.GetUpperBound(0)
            LVI = New ListViewItem(i)
            LVI.SubItems.Add(arr(i, 0))
            LVI.SubItems.Add(arr(i, 1))
            LVI.SubItems.Add(arr(i, 2))
            ListView1.Items.Add(LVI)
        Next
    End Sub
End Class