How can I use a combo box to change the font in VB?

In VB, one can utilize the ComboBox control to achieve the function of changing fonts. The specific steps are as follows:

1. Add a ComboBox control and a Label control to the form.
2. In the loading event of the form, add the following code to load the optional font list.

Private Sub Form_Load()
    ' 加载可选的字体列表
    Dim fonts As New Drawing.Text.InstalledFontCollection()
    For Each font As FontFamily In fonts.Families
        ComboBox1.Items.Add(font.Name)
    Next
End Sub

1. In the ComboBox selection change event, add the following code to change the font of the Label control:

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    ' 改变Label控件的字体
    Label1.Font = New Font(ComboBox1.SelectedItem.ToString(), Label1.Font.Size, Label1.Font.Style)
End Sub

In this way, the font of the Label control will change accordingly when the user selects a different font.