2000-08-04 00:30

' ActiveX control example for Rapid-Q by William Yu
' Requires GIF89.DLL and RAPIDQ.GIF
' To register GIF89.DLL do the following at the command prompt:
' regsvr32 gif89.dll


     CREATE Form AS QFORM
      CAPTION = "Animated GIFs"
      COLOR = &HFFFFFF
      Height = 110
      Center
      Show
      CREATE Label AS QLABEL
       WordWrap = 1
       Top = 45
       Left = 10
       Width = 200
       CAPTION = "Rapid-Q is a semi-OO, multiplatform, GUI && CONSOLE BASIC Compiler/Interpreter"
      END CREATE
      CREATE GifAnimation AS QOLECONTAINER
       Height = 33
       Width = 135
       Left = 70
       CreateObject("Gif89.Gif89.1")
        '-- FileName is a property in GIF89.DLL
       FileName = "rapidq.gif"
      END CREATE
     END CREATE

     DO
      DOEVENTS
     LOOP UNTIL Form.Visible = 0

     GifAnimation.Free

2000-08-04 00:30