code:

---

break on
 
$form = createobject("kixtart.form")
$form.caption = mainform
$form.fontname = verdana
$form.fontsize = 12
 
$button = $form.commandbutton("just a button")
$button.center
 
$form.center
$form.show
 
$DELAY = 4000 ; msecs
$timer = @TICKS+$delay
 
while $form.visible
 
 $=execute($form.doevents(1))
 
 if @TICKS > $timer
  $form.show(0)
  pop()
  $form.show
  $timer = @TICKS+$delay
 endif
 
 sleep(0.01)
  
loop
 
exit 1
 
function pop
 
 dim $popup,$timer
  
 $popup = createobject("kixtart.form")
 
 $popup.caption = popup
 $popup.witdh = 200
 $popup.height = 200
 
 $popup.center
 $popup.show
 
 $timer = @TICKS+$delay
 
 while $popup.visible
 
  $=execute($popup.doevents(1))
 
  if @TICKS > $timer
   $popup.show(0)      ; <--- heres the bugger
  endif
 
  sleep(0.01)
 
 loop
 
endfunction

---