FONT

USUARIO.EXCLUIDOS 30/12/2004 11:01:23
#57767 Resposta escolhida

a primeira carrega elas em uma list
a segunda vizualiza a fonte
Private Sub Form_Load()
Dim contador As Integer
For contador = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(contador)
Next
End Sub

Private Sub List1_Click()
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
List1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight
End Sub