>>612
#Region "メインフォームに合わせてテキスト1をリサイズしてみるテスト"
Private Sub form1_resize()
TextBox1.Height = Form1Size.Height - 32 '後ほどwidth属性も変更
End Sub
#End Region

一応コード書いとくけど、「非共有メンバを参照するには、オブジェクト参照が必要」ってなんでつこりゃ。