For Each cRow In dt.Rows
        btn.Size = New Size(18, 19)
        btn.Name = "btn" + cRow("Stadt")
        btn.Left = cRow("xPos")
        btn.Top = cRow("yPos")
        btn.BackColor = Color.Red
 
        lbl.Name = "lbl" + cRow("Stadt")
        lbl.Text = cRow("Stadt")
        lbl.Left = cRow("xPos")
        lbl.Top = cRow("yPos") + 20
        lbl.BackColor = Color.Transparent
 
        Me.Controls.Add(btn)
        Me.Controls.Add(lbl)
      Next