Управление размерами формы - VB

Формулировка задачи:

Подскажите как мне сделать так чтоб при нажатие на кнопке на форме форма выдвигалась на половину и при следующим нажатии на туже кнопку задвигалась на половину Вот кусок кода

                    Листинг программы
                
Private Sub Command2_Click()
Form1.Height = 10000
End Sub

Форма выдвигается на половину а как сделать чтоб она задвигалась обратно. Спасибо

Решение задачи: «Управление размерами формы»

textual
                            Листинг программы 
                        
Private Sub Command1_Click()
If Command2.Enabled = False Then Command2.Enabled = True: Exit Sub
Command2.Enabled = False
End Sub

Оцени полезность:

14 голосов , оценка 4.214 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы