AniForm

Private Sub Command1_Click() '
Dim w as Variant
w = xxxx
1:
w = w + 1
Form1.Width = w
If w = xxxx Then
Goto 2
Else
Goto 1
End If
2:
End Sub