Changing textbox font during run-time?

How exactly do i get the little window to change the font of a textbox during runtime?

i'm using vb6, and apparently (or at least for me) the font common dialog box is no longer in service.

Any help would be appreciated. :) thanks.

Just change the FontName and Fontsize Properties, eg.

Code:

---

    Text1.FontName = "Arial"
    Text1.FontSize = 18

---

The Commondialogbox should work, but you have to specify a Flag, eg.

Code:

---

Private Sub Command1_Click()
    On Error GoTo FontErr
    With CommonDialog1
        .CancelError = True
        .Flags = cdlCFScreenFonts
        .ShowFont
        Text1.FontName = .FontName
        Text1.FontSize = .FontSize
    End With
FontErr:
End Sub

---

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]