font dialogue box

i am trying to set my font dialogue box . when i change the text size it still reverts back to the default , any help in the code would be very helpful:confused:

And how do you do that???

Quote:

---

Originally posted by mackey
i am trying to set my font dialogue box . when i change the text size it still reverts back to the default , any help in the code would be very helpful:confused:

---

This code works fine for me:

VB Code:

'requires CommonDialog (CDFont) and CommandButton (Command1):
 
Private Sub Command1_Click()
  CDFont.Flags = cdlCFBoth
  CDFont.FontName = Me.FontName
  CDFont.ShowFont
  
  Me.FontName = CDFont.FontName
  
  Me.Refresh
End Sub
 
Private Sub Form_Paint()
  Me.CurrentY = 0
  Me.Print "Wassup!?"
End Sub