Visual Basic - Cequen este codigo y como lo puedo automatizar

Public Function estilo(ByVal crt As Control, siz As Integer, fnt As String, bld As Boolean, kurs As Boolean)

crt.FontItalic = kurs
crt.FontBold = bld
crt.FontSize = siz
crt.FontName = fnt
End Function

Public Sub cambiaestilo()
''aqui van todos los controles que se desean cambiar
''ejemplo
''estilo Command1, 10, "dolphin"
''estilo Label1, 10, "dolphin"
''estilo es la funcion, label es el control,
''10 el tamaño y dolphin la letra

estilo Command1, 10, "dolphin", 1, 0
estilo Command3, 12, "arial", True, True
estilo Command5, 13, "times new roman", False, False
estilo Command7, 15, "paris", True, False


estilo Label1, 60, "dolphin", False, True
estilo Label2, 15, "mt extra", False, False
estilo Label3, 12, "arial", True, True
End Sub

Private Sub Form_Load()
cambiaestilo
End Sub

una vez leido en la rutina Public Sub cambiaestilo() como le puedo hacer para que le de a todos mis controles el mismo estilo por ejemplo
tengo 20 commands y 10 labels y todos son con fuente arial,en tamaño 10 pero no quiero estar poniendo en cambiaestilo() estilo Label1, 60, "dolphin", False, True y pense en hacerlo con un contador pero resulta que tengo un error por que a como manejo el contador el label1 me lo reconoce como cadena y no como control

For each control in controls
estilo(...)
next