- 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
标签变换的代码
最新推荐文章于 2023-03-24 15:47:01 发布