---

' Этот код вставляется в окно кода самой формы (UserForm1)

Private Sub UserForm_Initialize()
    ' Заполнение ComboBox1 (Шрифты)
    With ComboBox1
        .AddItem "Arial"
        .AddItem "Times New Roman"
        .AddItem "Courier"
        .AddItem "Segoe Script"
        .AddItem "MS Sans Serif"
        .Style = 2 ' fmStyleDropDownList (запрет ввода)
        .ListIndex = 0
    End With

    ' Заполнение ComboBox2 (Размеры)
    With ComboBox2
        Dim s As Integer
        For s = 16 To 30 Step 2 ' Например, от 16 до 30
            .AddItem s
        Next s
        .Style = 2
        .ListIndex = 0
    End With

    ' Заполнение ComboBox3 (Цвета от 0 до 15)
    With ComboBox3
        Dim i As Integer
        For i = 0 To 15
            .AddItem i
        Next i
        .Style = 2
        .ListIndex = 0
    End With
End Sub

Private Sub CommandButton1_Click()
    ' Настройка Label1 по нажатию кнопки
    Label1.Font.Name = ComboBox1.Text
    Label1.Font.Size = Val(ComboBox2.Text)
    Label1.ForeColor = QBColor(Val(ComboBox3.Text))
    
    ' Настройка стилей через CheckBox
    Label1.Font.Bold = CheckBox1.Value
    Label1.Font.Italic = CheckBox2.Value
    Label1.Font.Underline = CheckBox3.Value
    Label1.Visible = CheckBox4.Value
    
    Label1.Caption = "Образец текста"
End Sub

Private Sub CommandButton2_Click()
    Unload Me ' Закрытие формы
End Sub