ElseIf TypeOf ctlControl Is ComboBox Then
      ControlResize2 ctlControl, X, Y

Function ControlResize2(Control As Control, X, Y)
  With Control
    .Font.Size = .Font.Size * X
    .Move .Left * X, .Top * Y, .Width * X, .Height * Y
  End With
End Function