---

Private Sub UserForm_Initialize()

    With ComboBox1
    
        .AddItem "Arial"
        .AddItem "Verdana"
        .AddItem "Times New Roman"
        .AddItem "Courier"
        .AddItem "Segoe Script"
        .AddItem "MS Sans Serif"
        
        .ListIndex = 0
        
    End With

    Dim i As Integer

    With ComboBox2
    
        For i = 12 To 30 Step 2
            .AddItem i
        Next i
        
        .ListIndex = 0
        
    End With

    With ComboBox3
    
        For i = 0 To 15
            .AddItem i
        Next i
        
        .ListIndex = 0
        
    End With

    Label1.Caption = ComboBox1.Text

End Sub

Private Sub CommandButton1_Click()

    Label1.Caption = ComboBox1.Text

    Label1.Font.Name = ComboBox1.Text

    Label1.Font.Size = Val(ComboBox2.Text)

    Label1.ForeColor = QBColor(Val(ComboBox3.Text))

    Label1.Visible = CheckBox1.Value

    Label1.Font.Bold = CheckBox2.Value

    Label1.Font.Italic = CheckBox3.Value

    Label1.Font.Strikethrough = CheckBox4.Value

    Label1.Font.Underline = CheckBox5.Value

End Sub

Private Sub CommandButton2_Click()

    Unload Me

End Sub