Function ControlResize1(ByRef Control As System.Windows.Forms.Control, _
    ByRef X As Object, ByRef Y As Object) As Object
        With Control
            .Font = New Font(.Font.FontFamily, .Font.Size * X, .Font.Style, _
              GraphicsUnit.Point)
            .SetBounds(.Left * X, .Top * Y, .Width * X, .Height * Y)
        End With
    End Function