但在這裡，我想用力告訴大家，最好不要用這個方式，因經過網友Testing ，這只在
某些版本的OS與VB某些版本之下在能Work。
Private Sub Form_Load()
  Me.ScaleMode = 3
  Marquee1.DrawImmediately = 0
  Marquee1.ScrollPixelsX = 0
  Marquee1.ScrollPixelsY = 0
  Marquee1.insertURL 0, "c:\tmp2\star.gif"                      'Insert the .Gif you want to Show
End Sub
Private Sub Marquee1_OnStartOfImage()
   Marquee1.Height = Marquee1.PageHeight
   Marquee1.Width  = Marquee1.PageWidth
End Sub