关于text在form中的位置的问题 ！！！

Question

    在rorm中添加一个text，然后这样写
Private Sub Form_Resize()
Text1.Width = Form1.Width * 0.98  ’有滚动条。
Text1.Height = Form1.Height * 0.915
End Sub
'但是最大化之后它会有一点没遮住窗体，怎样才能让它在最大化和平时都遮住窗体了 ？
   Private Sub Form_Resize()
Text1.Width = Form1.Width-180
Text1.Height = Form1.Height-150
End Sub
 这样写的话是不能最小化的！  很郁闷.....
先答对给分.....
   谢谢！

Answer 1

Private Sub Form_Resize()
    Text1.Left = Me.ScaleLeft
    Text1.Top = Me.ScaleTop
    Text1.Width = Me.ScaleWidth
    Text1.Height = Me.ScaleHeight
End Sub

Answer 2

Private Sub Form_Resize()
    On Error Resume Next
    Text1.Mov Me.ScaleLeft,Me.ScaleTop,Me.ScaleWidth,Me.ScaleHeight
End Sub