FIX: Common Dialog May Not Display the Current Font

MORE INFORMATION

Steps to Reproduce Problem

1. Start a project in Visual Basic. Form1 is created by default.
2. Place two Command buttons on the form.
3. Place a common dialog control onto the form.
4. Add the following to the Command1_Click event:

      Private Sub Command1_Click()
   
        'This method will fail
        CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
        CommonDialog1.FontName = "MS Sans Serif"
        CommonDialog1.ShowFont
   
      End Sub
   						

5. Add the following to the Command2_Click event:

      Private Sub Command2_Click()
   
        'This method will work
        CommonDialog1.Flags = 0   'Required before setting FontName
        CommonDialog1.FontName = "MS Sans Serif"
        CommonDialog1.Flags = cdlCFBoth + cdlCFEffects
        CommonDialog1.ShowFont
   
      End Sub
   						

6. Choose Start from the Run menu, or press the F5 key to start the program.
7. Click the Command buttons and observe the behavior.