Как сделать так, чтобы форма расширялась в обе сороны?

[SCREEN]

Здравствуйте, у меня вроде простая задачка, но я что-то не могу допереть.
Мне надо чтобы при нажатии на кнопку, ширина формы увеличивалась,
ну я написал

Private Sub Command1_Click()
form1.Width = Width + 100
End Sub

Но форма, расширяется на 100 в одном направлении, как сделать так чтобы она сразу в 2-х направлениях становилась шире?

[tyomitch]

Переместить влево на 50.

[Smith68]

SCREEN, незнаю, но у меня все работает. Именно так, как у тебе! Фигня

[end3r]

Подобного эффекта можно добиться, если при увеличении ширины формы на 100, сдвигать все объекты на ней на 50.

Код: Выделить всё

Private Sub Command1_Click()
Form1.Width = Form1.Width + 100
Command1.Left = Command1.Left + 50
End Sub

[CORBA]

по идеи нужно переместить форму относительно текущего положения на 50 твипов влево и увеличить ширину на 100 твипов. Таким образом визуально форма увеличится в обе стороны на 50 твипов.

[Хакер]

И не только. Не забывайте про выравнивания всех объектов на форме по центру. А то это будет выглядеть не как расширение в обе стороны, а как глюк...

[ВуД]

Побробуй так:
Form1.Height = Form1.Height + 100
Form1.Width = Form1.Width + 100

[Хакер]

ВУД, ШИРЕ а не ВЫШЕ

Хоть читай иногда о чём спрашивают...

Нужно чтобы форма расширялась от центра к краям экрана, а не от левого верхнего угла вверх и вниз.

[GB826]

А я бы юзал Move, но это дело вкуса :о))

[ВуД]

сКАЧАЙ[code][/code]

[SCREEN]

Большо всем спасибо!!!