标题让窗体“动”起来

　　我们在用VB编写程序时，经常要设置窗体标题。如果我们能让窗体的标题动态显示，使整个窗体有种动态效果，就能增加VB程序的生动性。下面就是一个特效窗体标题显示程序。
　　首先，新建一个工程，设置好窗体的大小、位置、字体及字体颜色。然后在窗体上添加一个计时器。接下来就是编写如下的程序代码：
　　Dim words As String '定义一个变量，用来存储窗体的标题
　　Dim i As Integer
　　Dim txtword As String '定义一个变量，用来存储标题中的单个字符
　　Dim lenth As Integer '定义此变量用来存储窗体标题的长度
　　Private Sub Form_Load()
　　Me.Caption = "如何创建动态显示的窗体标题" '此标题根据实际窗体设置
　　words = Form1.Caption
　　Timer1.Interval = 300
　　Timer1.Enabled = True '启用定时器
　　Form1.Caption = "" '将窗体标题清空
　　End Sub
　　Private Sub Timer1_Timer()
　　lenth = Len(words)
　　txtword = Left(words，i)'取得窗体标题的前第i个字符
　　Form1.Caption = txtword '动态设置窗体的标题
　　i = i + 1
　　If i > lenth Then '窗体标题显示完毕，循环动态显示窗体标题
　　i = 0
　　End If
　　End Sub
　　赶快按下F5运行一下，看看效果如何吧！