Private Sub Form_Resize()
Text1.Height = Form1.Height * (Text1.Height / Form1.Height)
Text1.Width = Form1.Width * (Text1.Width / Form1.Width)
End Sub

以上代码为什么不能实现当窗口的大小改变的时候,
文本框的大小也随之改变呢?问题出现在哪里?
请高手们指点.在此先谢了.

Form1.Height换成Me.ScaleHeight试试

看看这段代码对你有没有帮助（下面的代码只是对窗体内的一个控件起作用。），“窗体与控件”是偶在“奥运邮集是怎样完成？”的教材内要讲的内容，即窗体内的多个控件随窗体变化，并可以用鼠标控制的。
Private Sub Form_Load()
'窗体高度等于屏幕高度的六分之一
  Form1.Height = Screen.Height / 6
'窗体宽度等于屏幕宽度的六分之一
  Form1.Width = Screen.Width / 6
End Sub
Private Sub Form_Resize()
  Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub Text1_Change()
End
End Sub

二楼的方法不行.还是谢谢了.
三楼的方法可用.
Private Sub Form_Resize()
  Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

我只要这段代码就可以了.请问一下
move 这个是什么?各参数是什么.也就是把  Text1.Move 0, 0, ScaleWidth, ScaleHeight  这句详细的注释一下.谢谢了.


还有一点就是.我所定的代码不能实现我要的功能,是什么原因?

move
在API编程 没有调整大小的方法只有一个move方法，包括调整大小，移动控件