Public Class frmTest
    Dim dt As New DataTable
    Dim lb As New ListBox
 
    Private Sub frmTest_Load(sender As System.Object, e As System.EventArgs) _
        Handles MyBase.Load
 
        lb.Parent = Me
        With dt
            .Columns.Add("SP1", GetType(String))
            lb.DisplayMember = .Columns(0).ColumnName
            lb.DataSource = dt
            .Rows.Add("R1")    'Hier wird die Meldung ausgegeben
        End With
 
        'lb.Parent = Me
    End Sub
End Class