For c = 0 To 19
  If c > 0 Then Load LblStammies(c)
  With LblStammies(c)
      .Left = LblStammies(0).Left + (.Width + 60) * (c Mod 5)
      .Top = LblStammies(0).Top + (.Height + 60) * (c \ 5)
      .Visible = True
  End With
  If c > 0 Then Load LblStammZähler(c)        '<<<< ab da klappt es nicht mehr - diese soll am ende der Label oben erstellt werden - die sind 375 x 375
  With LblStammZähler(c)
      .Left = LblStammies(0).Left + (.Width + 60) * (c Mod 5)
      .Top = LblStammZähler(0).Top + (.Height + 60) * (c \ 5)
      .Visible = True
  End With
 Next