<div id="vb-1">
[color="#001701" face="Verdana, Arial, Helvetica, sans-serif"]Este es un ejemplo conocido de como listar todas las fuentes instaladas en el sistema en un control List o ComboBox,en este caso en un List.
Y despues si por ejemplo queres aplicar cada fuente al texto de un Textbox,le agregas este codigo al evento Click del List.Código:Private Sub Form_Load() Dim I As Integer List1.Clear For I = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(I) Next I List1.ListIndex = 0 End Sub
Saludos.Código:Private Sub List1_Click() Text1.Text = "canalvisualbasic" Text1.Font = List1.List(List1.ListIndex) End Sub
[/color]