Forms :: ControlType - Set Text Box Fonts In All Forms

I'm using the following code to set text box fonts in all my forms. Problem is a couple of my forms have a combo box which I need to reference here but not sure how. I want the Combo Box font to be the same as the text box's. Not sure how to check to see if the control is a combo box.

Code:
Public Function TextBoxProperties(frm As Form)
Dim ctl As Control
On Error GoTo TextBoxProperties_Error
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Then
ctl.FontName = "Calibri"

[Code] ....