#Define FRM_MODAL  1
#Define AW_HOR_POSITIVE  0x0001
#Define AW_HOR_NEGATIVE  0x0002
#Define AW_VER_POSITIVE  0x0004

#Define BUKA_DARI_KIRI   AW_HOR_POSITIVE + AW_VER_POSITIVE
#Define BUKA_DARI_KANAN  AW_HOR_NEGATIVE + AW_VER_POSITIVE

Local lo_Form

lo_Form = NewObject( 'Form1' )
lo_Form.Show( FRM_MODAL )
lo_Form = Null


**************************************************
*-- Form:         form1 (frm_metric_animate.scx)
*-- Time Stamp:   12/09/05 05:30:13 AM
*
Define class Form1 as Form

   Height = 214
   Width = 325
   DoCreate = .T.
   Caption = 'Form Animated'
   Name = 'Form1'


   Procedure Init
      Declare AnimateWindow in User32 ;
         Long nhWnd, Long dwTime, Long dwFlags

      AnimateWindow( ThisForm.hWnd, 150, BUKA_DARI_KIRI )
      * AnimateWindow( ThisForm.hWnd, 150, BUKA_DARI_KANAN )

      Clear Dlls AnimateWindow
   EndProc


EndDefine