----所需物件：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->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!