在VB中，可以使用ComboBox控件來實現改變字體的功能。具體步驟如下：
在窗體中添加一個ComboBox控件和一個Label控件。
在窗體的加載事件中，添加以下代碼來加載可選的字體列表：
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
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
這樣，當用戶選擇不同的字體時，Label控件的字體會相應地改變。
