'la selezione
Private Sub Form_Load() Dim I As Integer For I = 0 to Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(I) Next I End Sub 'Per cambiare il font di un controllo quindi utilizzare la seguente procedura Private Sub Combo1_Click() Text1.FontName = Combo1.Text End Sub |