[VB6] combo e font

[Sypher]

così a me funziona bene

Private Sub Combo1_Click()
  On Error Resume Next
  Text1.Font = Combo1.Text
End Sub



Private Sub Form_Load()
Dim i, a
  For i = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(i)
  Next
End Sub