Dim H As Single, W As Single, X As Single H = Text1.Height '获取控件的高度 W = Text1.Width '获取控件的宽度 X = InputBox("请输入宽度按比例缩放的值") '输入宽度按比例缩放的值 Text1.Width = Text1.Width * X