SystemFonts
Private Sub Command1_Click() Dim I As Integer For I = 1 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(I) Next End Sub
Private Sub Command1_Click()
Dim I As Integer
For I = 1 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next
End Sub
( systemfonts.html )- by Paolo Puglisi
- Modifica del 17/12/2023