标签变换的代码

Private Sub Form_Timer()

Dim intMz As Integer

Dim blnMz As Boolean

intMz = intMz + 1

If intMz> 4 Then

intMz = 1

End If

Select Case intMz

Case 1

labXX.Caption = "木子办公助手"

blnMz = True

Case 2

labXX.Caption = "lymin_li@qq.com"

blnMz = False

Case 3

labXX.Caption = "木子软件工作室"

blnMz= True

Case 4

labXX.Caption = "http://blog.csdn.net/mzoffice/"

blnMz = True

End Select

End Sub