>>33
即レスありがとでした。

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

これで解決出来ました、ありがとでした。