Frame Effect

Frame Lengthening And Shortening Effect With Buttons

The loops were used  purpose of lengthening / shortening frame ,stopping operation.

For instance :

Private Sub CommandButton1_Click()
Dim i As Double
Cancel = False
i = Frame1.Height
    Do
        i = i + 0.015
        Frame1.Height = i
                 If Cancel Then
                Exit Do
            End If
        DoEvents
        Loop Until Frame1.Height >= 276
End Sub