电影结束画面的卷动效果

----所需物件：PictureBox(2),Label(4),Timer(1),Image(1)。
　　----程式码：
　　
　　PrivateSubForm_Load()
　　Label1.Alignment=2
　　Label2.Alignment=2
　　
　　Label1.Caption="电影结束画面的卷动效果！"
　　Label2.Caption="电影结束画面的卷动效果！"
　　Label3.Caption="东汉工作室"
　　Label4.Caption="东汉工作室"
　　Label1.FontName="研泽古印体"
　　Label2.FontName="研泽古印体"
　　Label3.FontName="研泽古印体"
　　Label4.FontName="研泽古印体"
　　Label1.ForeColor=QBColor(13)
　　Label3.ForeColor=QBColor(9)
　　
　　EndSub
　　
　　
　　PrivateSubPicture2_Click()
　　End
　　EndSub
　　
　　
　　PrivateSubTimer1_Timer()
　　Picture2.Top=Picture2.Top-1
　　IfPicture2.Top<=-150ThenPicture2.Top=93
　　EndSub->