>I have the following code to populate a combo box with the names
>of availble fonts. The combo is passed in:
>
>
> Dim iCounter As Integer
> oComboBox.Clear
>
> For iCounter = 0 To Printer.FontCount - 1
>   oComboBox.AddItem Screen.Fonts(iCounter)
> Next iCounter
>
>
>
>Once the user selects a font from the combo, how to I determine
>the font sizes for the selected font?

Can't you use CommonDialog:

Private Sub Command1_Click()
    CommonDialog1.Flags = cdlCFPrinterFonts
    Me.CommonDialog1.ShowFont
End Sub