nicht immer alle Buttons FETT

Sub CommButt()
Dim ObCB       As Object       ' Objekte im UserForm(ular)
Dim iHoehe     As Integer      ' Höhe des Contols
Dim iLinks     As Integer      ' Pos. des Controls
Dim iOben      As Integer      ' Pos. von oben des Contols
Dim iBreite    As Integer      ' Breite des Controls
   For Each ObCB In UserForm1.Controls   ' die Label usw. beschriften und ausrichten
      If TypeName(ObCB) = "Label" Then   ' ist es ein Label ?
      '
      '
      ElseIf TypeName(ObCB) = "CommandButton" Then   ' ist es ein CommandButton ?
      
Nun habe ich das Phänomen,. dass nicht immer alle Buttons mit Fetter Schrift angezeigt werden. Mitunter sind es der erste und letzte nicht, mitunter eine ganze Zeile nicht (die Buttons sind in 6 Zeilen a 7 Buttons angeordnet).
Kann mir jemand sagen, was hierfür die Ursache sein könnte?
Schon einmal auf diesem Wege vielen Dank im voraus.
Gruß Peter