2つのコンボボックスcombobox1とcombobox2があります。combobox1ですべてのシステムフォントを取得しています。combobox2で選択したフォントのフォントスタイルを取得する必要があります。
Dim fc As New Drawing.Text.InstalledFontCollection
Dim ff As FontFamily() = fc.Families()
For Each family As FontFamily In ff
Me.ComboBox1.Items.Add(family.Name)
Next
たとえば、フォント名を選択した場合。モノタイプCorsivaフォントには、イタリックとイタリックの太字フォントスタイルのみがあります
簡単に言うと、フォントスタイルはフォントごとに異なるため、combobox1で選択したフォントに関連するフォントスタイルを取得する必要があります。