Private Structure NaAl
    Dim sName As String
    Dim sAlter As Integer
  End Structure
 
  Private x As New List(Of NaAl)
 
  Private Sub btnSet_Click(ByVal ...) Handles btnSet.Click
    Dim Items As New NaAl
 
    x.Clear()
    Items.sName = "Hansi"
    Items.sAlter = 34
    x.Add(Items)
    Items.sName = "Otto"
    Items.sAlter = 45
    x.Add(Items)
    Items.sName = "Paul"
    Items.sAlter = 11
    x.Add(Items)
 
  End Sub
 
  Private Sub btnGet_Click(ByVal ...) Handles btnGet.Click
    For i As Integer = 0 To x.Count - 1
      txbShow.AppendText(x(i).sName & " - " & x(i).sAlter & vbCrLf)
    Next
  End Sub