質問です。TextBoxをFormのリサイズ時、Formの高さに合わせるために、以下のようにしました。

Private Sub Form_Resize()
Text1.Height = Form1.ScaleHeight 'テキストの高さをフォームの高さに合わせる。
Text1.Width = Form1.ScaleWidth 'テキストの幅をフォームの幅に合わせる。
End Sub


しかし、TextBoxはFormのサイズより小さいので、以下のように変更したところ、
ウィンドウ最小化時にエラーが出るようになりました。

Text1.Height = Form1.ScaleHeight 'テキストの高さをフォームの高さに合わせる。
　　↓
Text1.Height = Form1.ScaleHeight - 1100 'テキストの高さをフォームの高さに合わせる。

解決策、助言等よろしくお願いします。