Function ControlResize(Control As Control, X, Y)
  With Control
    .FontSize = .FontSize * X
  End With
End Function

    Function ControlResize(ByRef Control As System.Windows.Forms.Control, _
    ByRef X As Object, ByRef Y As Object) As Object
        With Control
            .Font = VB6.FontChangeSize(.Font, .Font.SizeInPoints * X)
        End With
    End Function