VB6.0中的一段代码是什么意思？

Question

用VB6.0实现几种图文特效的演示程序中有段代码，代码如下：
Private Sub Cmd_Click (Index As Integer)
　 If 1(Index)=True Then
　　 1(Index)=False
　 Else
　　 1(Idex) = True
　 End If
　 Select Case Index
　　 Case 0 '激活timer1的timer过程
　　　 Timer1.Enabled=True
　　　 Timer1.Interval=50
　　　 ...... 'Case1, 2与上述类似，分别激活timer2, timer3的timer过程
　　 Case 3 '调用图片复制过程Piccpy
　　　 PiCpy 10, 50
　　 Case 4'结束程序运行
　　　 Unload Me
　　　 End
　 End Select
End Sub

Private Sub Timer1_Timer() '实现文字缩放的过程
　 If 1(0)=Trun Then
　　 zt=zt<+5
　 Else
　　 Zt=Zt-5
　 Else If
　　 If zt>50 or zt<=5 Then
　　　 Timer1.Enabled=False
　　 End If
　　 With Label1
　　　 .Font.Size=zt
　　　 .Left=(Form1.Width - Lable1.Width) /2
　　　 .Top=(Form1.Height - Label1.Height)/2
　　 End With
　　 Label1.Caption=s
End Sub
这段代码是什么意思？

Answer 1

这是实现图文动态缩放和渐隐渐现特效的程序代码

Answer 2

1没看懂，2是好象文字自动变大变小的