Public Class Form1
  Structure Eintrag
    Public Zahl As Integer
    Public Txt As String
    Public Datum As Date
  End Structure

  Public myList As New List(Of Eintrag)

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles Button1.Click
     ' Structure mit Beispiel füllen & ab in die List
    Dim _Eintrag As New Eintrag
    _Eintrag.Zahl = 60
    _Eintrag.Txt = "Martin Muster"
    _Eintrag.Datum = Date.Now
    myList.Add(_Eintrag)

     ' Angelegten Eintrag abrufen
    With myList(0)
      Label1.Text = .Zahl.ToString
      Label2.Text = .Txt
      Label3.Text = .Datum.ToShortDateString
    End With
  End Sub
End Class