For ind As Integer = 0 To myPictureboxen.Length - 1
       myPictureboxen(ind) = New PictureBox With
       {.Parent = Me, .Left = 10, .Top = ind * 20, .Width = 15, .Height = 15, 
        .BorderStyle = BorderStyle.Fixed3D}
   Next ind
 
   Dim lbl As New Label, lbl2 As New Label
   lbl.Text = "12" : lbl2.Text = "Feld"
 
   If lbl2.text = "Feld" Then myPictureboxen(CInt(lbl.Text)).BackColor = _
     Color.Yellow