Dim a, b As Integer
Private Sub Form_Load()
a = RichTextBox1.Width / Form1.ScaleWidth   '宽度比例
b = RichTextBox1.Height / Form1.ScaleHeight '高度比例
End Sub

Private Sub Form_Resize()
RichTextBox1.Width = a * Form1.ScaleWidth
RichTextBox1.Height = b * Form1.ScaleHeight
End Sub
为什么控件高度不会跟随窗体的改变而改变？？？

[ 本帖最后由 zhnzz4229 于 2013-9-1 10:24 编辑 ]

已经解决了，原来是类型不对。

Dim a, b As Single
Private Sub Form_Load()
a = RichTextBox1.Width / Form1.Width
b = RichTextBox1.Height / Form1.Height
End Sub

Private Sub Form_Resize()
RichTextBox1.Width = a * Form1.Width
RichTextBox1.Height = b * Form1.Height
End Sub

这是修改后的代码！！！