così dovrebbe andare bene

codice:
Dim ctrl As Control

  For Each ctrl In Me.Controls
    If TypeOf ctrl Is TextBox Or TypeOf ctrl Is Label Then
      ctrl.Font = "Arial"
    End If
  Next