Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Dim _datTable As New DataTable()
        Dim _datrow As DataRow
        Dim _datcol As DataColumn
 
        _datcol = New DataColumn()
        With _datcol
            .DataType = System.Type.GetType("System.Single")
            .ColumnName = "Spalte1"
        End With
        _datTable.Columns.Add(_datcol)
 
        _datcol = New DataColumn()
        With _datcol
            .DataType = System.Type.GetType("System.String")
            .ColumnName = "Spalte2"
        End With
        _datTable.Columns.Add(_datcol)
 
        _datrow = _datTable.NewRow
        _datrow("Spalte1") = 1
        _datrow("Spalte2") = "Eintrag1"
        _datTable.Rows.Add(_datrow)
 
        _datrow = _datTable.NewRow
        _datrow("Spalte1") = 2
        _datrow("Spalte2") = "Eintrag2"
        _datTable.Rows.Add(_datrow)
 
        _datrow = Nothing
 
        me.Listbox1.Clear()
 
        For Each _datrow In _datTable.Rows
            Me.ListBox1.BeginUpdate()
            Me.ListBox1.Items.Add(_datrow(0) & " - " & _datrow(1))
            Me.ListBox1.EndUpdate()
        Next
 
 
End Sub