Dim TGB As MSForms.ToggleButton
Set TGB = Form1.Controls.Add("Forms.togglebutton.1", "TGB_" & Tops, _
  Form1.Frame1)
 
With TGB
    .Left = 300
    Topindex = Topindex + 35
    .top = Tops + Topindex
    .Width = 1000
    .Height = 350
    .TextAlign = fmTextAlignCenter
 
    If rec_set.Fields("Eigenschaft_true").ActualSize > 0   And _
      rec_set.Fields("Eigenschaft_false").ActualSize > 0    Then
        .Caption = rec_set.Fields("Eigenschaft_False")
        .Visible = True
    End If
End With