CLASS TAnimate FROM TControl
...
METHOD FileVerif() BLOCK { | Self, h | h := LoadLibrary( "shell32.dll" ),;
::OpenEx( h, 165 ), FreeLibrary( h ) }
...
METHOD Seek( nFrame ) INLINE AnimPlay( ::hWnd, nFrame, nFrame, 1 )
METHOD Stop() INLINE SendMessage( ::hWnd, ACM_STOP, 0, 0 )
ENDCLASS
