各位大神
有没有

获取物件高宽  高不变宽度按比例缩放的代码
不怎么写这个

莫名其妙的问题，你的问题根本都没有说清楚。
1. 获取高宽，如何获得？
2. 按比例缩放宽度， 一般情况缩放就是乘以一个比例。问题是你这个比例如何确定？
VB编程是将确定的规则用代码实现。 你要问一个问题，首先自己对问题的理解； 其次其中的规则的明确表述。 否则别人无法帮助你

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

是不是这个意思？