change a property

[BIacksun]

I like to know how to change a property eg(form1.hight) and finish the sub befor it goes to form.resize.

So i can change form1.Hight and form1.Width then call form.resize.

[BIacksun]

sorry
ok this is what i want

lets say

Picture2_Change()
End sub

skiad_click()
Picture2.hight = 21
End sub

After changing the Picture2.hight i do not whant to the program to go to Picture2_Change.

[JEN001]

Dim NoChange As Boolean
skiad_Click(Button As Integer)
    Picture2.height = 21
    NoChange = True
End Sub

Picture2_Click(Button As Integer)
    If NoChange Then
        NoChange = False
        Exit Sub
    End If
End Sub

that should do it