LISTER LES POLICES DE CARACTERES PRÉSENTENT SUR VOTRE PC

'Pour afficher le nom de la police et avoir un aperçu de la police dans un label
Private Sub Combo1_Click()
Label1.Caption = Combo1.Text
Label1.Font.Size = 15
Label1.Font.Name = Combo1.Text
End Sub

Private Sub Form_Load()
scfont = Screen.FontCount - 1
'création d'une boucle pour lister les polices
For i = 0 To scfont
Combo1.AddItem Screen.Fonts(i)
Next i
'fin de la boucle
End Sub