Трудности с построением условий if - VB

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

Трудность заключается в следующем моменте: у меня все в один размер вызывается а хотелось бы менять размеры формы

Private Sub Form_Load()
(если на "form1" вызвано "pop1") тогда  
Form4.Height = 7050
Form4.Width = 10000
 
(если на "form1" вызвано "pop2") тогда  
Form4.Height = 5200
Form4.Width = 10000
End Sub

заранее спасибо!

Решение задачи: «Трудности с построением условий if»

textual
                            Листинг программы 
                        

                            If FullSize then
    Form4.Height = 7050
    Form4.Width = 10000
Else
    Form4.Height = 5200
    Form4.Width = 1000
End If
                        