Did you remember to set the Flags? Try this example by making a Form with a CommonDialog and a CommandButton. Put this code into the CommandButton.

Code:
Private Sub Command2_Click()

    CommonDialog1.Flags = vbBoth
    CommonDialog1.ShowFont

End Sub