效果：文字隐现

　　前几天看到一个破解程序下面有一个框框，里面的文字淡入淡出，挺好看，闲来编个和大家分享。

　　首先，在窗体上放置Label1标签到适当位置，一个Timer1控件，Interval设为100。输入如下代码：

Dim a As Collection
Dim b As Boolean
Dim i As Integer

Private Sub Form_Load()
    Set a = New Collection
    a.Add "究极软件"
    a.Add "版权没有"
    a.Add "翻录不究"
    a.Add "如无雷同"
    a.Add "纯非巧合"
    a.Add "谢谢欣赏"
    b = True
End Sub

Private Sub Timer1_Timer()
    If b Then
        If Label1.ForeColor = 0 Then b = False: Exit Sub
        Label1.ForeColor = Label1.ForeColor - &HF0A00
    Else
        If Label1.ForeColor > &HFF0000 Then b = True: Exit Sub
        If Label1.ForeColor = 0 Then
            i = i + 1
            If i > a.Count Then i = 1
            Label1.Caption = a(i)
        End If
        Label1.ForeColor = Label1.ForeColor + &HF0A00
    End If
End Sub

　　其中的几个颜色和前面的文字大家可以自己调整，效果还不错~

最终通过环境：VB6+Win2000