資訊好好玩

0愛的鼓勵 0訂閱站台

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