For Each cnt As Control In Me.Controls
   cnt.Font = New Font("Tahoma", 12) 'Dove "Tahoma" può essere sostiuito da un oggetto selezionato dall'utente.
Next