Font - Cambia Font e grandezza di tutti i CTRL

cambia i tipo di carattere, altezza carattere di ogni controllo presente In un FORM

Public Sub CangeFont(ByVal MyForm As Form, ByVal NomeFont As String, ByVal HeightChar As Double, ByVal Bold As Boolean)
' cambia il tipo di carattere, la grandezza del carattere e grassetto

' ad ogni controllo presente in un form


Dim ctl As Control
On Error Resume Next

For Each ctl In MyForm.Controls

ctl.Font = NomeFont
ctl.FontSize = HeightChar
If Bold = True Then
ctl.FontBold = True
Else
ctl.FontBold = False
End If

Next


End Sub