----取工程1，窗体Form1、Form2，设Form1为启动窗体。在Form2上新建Frame1、Timer1和Temer2，Frame1的Caption属性设置成空值，以形成美观的立体边框。Timer1和Temer2的Enabled的属性设为True。在Frame1上创建Picture1，调整Picture1为合适大小。将Form1的ScaleMode属性设为1-Twip，Form2的StartUpPosition属性设为2-CenterScreen(中心对齐)。为了保证窗体Form2不显示窗体最上面的“蓝色说明条”，将Caption属性设为空值，ControlBox属性设为False即可。在Picture1上创建标签Label1，调整BackStyle为0(透明)。在Label1的Caption属性填写“作者：沈阳姜雪小姐”一段文字，以便观察。调整文字的大小、颜色。在窗体Form2上可随意设置版面信息。
----Form1代码如下：
PrivateSubForm_Load()
Form1.Visible=0使窗体Form1不可见
Form2.Show显示窗体Form2
EndSub
Form2各控件代码如下：
OptionExplicit
DimStep1,Step2,Step3AsInteger
DimZfAsString
DimIAsInteger
PrivateSubForm_Click()
单击窗体Form2时，结束窗体Form2的执行，
显示窗体Form1，关闭Timer、Timer1。
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubForm_Load()
Picture1.Picture=LoadPicture
("c:\windows\Clouds.bmp")任意选择一图片
Timer1.Interval=80时间步长
Timer2.Interval=50
EndSub
PrivateSub
Frame1_Click()单击控件Frame1内区域时，
结束窗体Form2的执行，显示窗体Form1，关闭Timer、Timer1。
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSub
Picture1_Click()
单击图片Picture1内区域时，结束窗体Form2的执行，
显示窗体Form1，关闭Timer、Timer1。
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndSub
PrivateSubTimer1_Timer()
ColorLabel1,15,13,9调用变换的颜色
I=I 1
IfI>50Then窗体Form2停留时间，可以调整大小
UnloadMe
Form1.Show
Timer1.Enabled=False
Timer2.Enabled=False
EndIf
EndSub
SubColor(CtrlAsControl,color1AsInteger,
color2AsInteger,color3AsInteger)选取颜色
IfVal(Ctrl.Tag)=color1Then
Ctrl.Tag=color2
ElseIfVal(Ctrl.Tag)=color2Then
Ctrl.Tag=color3
ElseIfVal(Ctrl.Tag)=color3Then
Ctrl.Tag=color1
Else
Ctrl.Tag=color1
EndIf
Ctrl.ForeColor=QBColor(Ctrl.Tag)
EndSub
PrivateSubTimer2_Timer()控制文字移动位置及速度
Step1=1800:Step2=4500:Step3=40
IfLabel1.Top<-Step1-Label1.TopThen
Label1.Top=Label1.Top Step2
EndIf
Label1.Top=Label1.Top-Step3
EndSub
----可以调整Timer1.Interval、Timer2.Interval值的大小，它们分别决定文字颜色变换速度及文字流动速度；根据窗体和控件情况调整Step1、Step2为合适值；Step3为文字跳跃步长；通过改变ColorLabel1，I，J，K语句中的I，J，K值来改变文字的变换颜色。在中文VisualBasic5.0下实现。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
