Private Sub Form_Load()
Dim i as Integer
For i=1 to Screen.FontCount-1
Combo1.Additem Screen.Fonts(i)
Next i
End Sub
Pero en Visual Basic .NET no existe ningun método de Fonts o FontCount en el objeto Screen, si alguien sabe como puedo hacer para agregar fuentes a una combobox en VB.NET, por favor responda.
