Sub ControlResize(ByRef Control As Control, ByVal X As Single, ByVal Y As _
      Single)
        With Control
            .Font = New Font(.Font.FontFamily, .Font.Size * X, .Font.Style, _
              GraphicsUnit.Pixel)
        End With
    End Sub