Martin, it's me again!

For windows look and feel try this, either build this into form or timer control or display real form over this code. (hint: use timer object to control explode/implode speed)

local oForm
oForm = createObj("form")
oForm.height = 2
oForm.width = 6

for i = 1 to 30
oForm.height = i*10
oForm.width = i*30
oform.autoCenter = .t.
oform.show
next i
read events && just for demo

good night!