用VB6.0实现几种图文特效的演示程序

　　Image1.Height=Image1.Height - Form1.Height/10
　End If
　If (Image1.Width >=Form1.Width/2) or(Image1.Width <=Form1.Width/10) Then
　　Timer2.Enabled=False
　End If
　Image1=LoadPicture("c:\win98\安装程序.bmp")
End Sub

Private Sub Timer3.Timer()
　Label1.Font.Size = 30
　If 1(2)=True Then
　　i=i l
　Else
　　i=i一1
　End If
　If i >=Len(s) on i<1 Then
　　Timer3.Enabled=False
　End If
　If i >=0 Then
　　Label1.Caption=Left$(s,i)
　End If
End Sub
　　以上程序在VB6.0和Windows98/2000环境下调试通过。