Public Class FormattedRow
    Public Sub New(ByVal field1 As String, ByVal field2 As String, ByVal field3 _
      As String)
        InitializeComponent()
 
        TextBox1.Text = field1
        TextBox2.Text = field2
        TextBox3.Text = field3
 
    End Sub
End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.CustomersTableAdapter.Fill(Me.NWINDDataSet.Customers)
        For Each dr As NWINDDataSet.CustomersRow In NWINDDataSet.Customers.Rows
            Dim fr As New FormattedRow(dr.CompanyName, dr.City, dr.PostalCode)
            FlowLayoutPanel1.Controls.Add(fr)
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist