標籤變換的代碼

1. Private Sub Form_Timer()
2. Dim intMz As Integer
3. Dim blnMz As Boolean
5. intMz = intMz + 1
6. If intMz> 4 Then
7.     intMz = 1
8. End If
9. Select Case intMz
10.     Case 1
11.         labXX.Caption = "木子辦公助手"
12.         blnMz = True
13.     Case 2
14.         labXX.Caption = "[email protected]"
15.         blnMz = False
16.     Case 3
17.         labXX.Caption = "木子軟件工作室"
18.         blnMz= True
19.     Case 4
20.         labXX.Caption = "http://blog.csdn.net/mzoffice/"
21.         blnMz = True
22.     End Select
23. End Sub