Private Sub frmKarte_Load(ByVal sender As Object, ByVal e As _
    System.EventArgs) Handles Me.Load
 
    Dim btn As New Button
 
   'For-Schleife, um alle Einträge der Tabelle zu entnehmen?
      btn.Size = New Size(18, 19)
      btn.Left =            'hier muss die xPos Spalte der Tabelle hin
      btn.Top =            'hier muss die yPos Spalte der Tabelle hin
      btn.BackColor = Color.Red
 
      Me.Controls.Add(btn)
 
  End Sub