Resize и TextBox1

[Александр80]

В проекте есть и Toolbar1 и StatusBar1 также есть TextBox1 (текстовое поле).
Как сделать так чтобы при убирании как StatusBar1 (StatusBar1.Visible = false) так и Toolbar1 (Toolbar1.Visible = false) TextBox1 растягивался на весь экран.
Хотелось бы также учесть что StatusBar1 и StatusBar1 могут находится в разном состоянии (например StatusBar1.Visible = false а Toolbar1.Visible = true или наоборот).

Помогите пожалуйста…

[gaidar]

Очень просто. Из кода, который делает невидимым Toolbar или Statusbar прям так и пишешь:

TextBox1.Move(x1,y1,x2,y2) И пишешь координаты
Сдвигаешь иувеличиваешь на размер самого Toolbar или Statusbar (Height).

Не вижу проблемы, это очевидно.

[Juriev]

'Вот примерчик
'На форме- RichTextBox1, Toolbar1, StatusBar1, Command1, Command2
Private Sub Command1_Click()
StatusBar1.Visible = False
Toolbar1.Visible = False
RichTextBox1.Top = 0
RichTextBox1.Height = Form1.ScaleHeight
End Sub

Private Sub Command2_Click()
StatusBar1.Visible = True
Toolbar1.Visible = True
RichTextBox1.Top = Toolbar1.Height
RichTextBox1.Height = Form1.ScaleHeight - StatusBar1.Height
End Sub