VB中怎样实现字体渐变大

VB6.0可使用Timer控件实现字体逐渐变大或变小。

Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

以下代码使用两个Timer控件和一个标签控件演示：

Option Explicit
    Dim i As Single

Private Sub Form_Load()
    Timer1.Interval = 50
    Timer2.Interval = 50
    i = 0.5
End Sub

Private Sub Timer1_Timer()
    i = i + 0.25
    If i > 100 Then
        Timer1.Enabled = False
        Timer2.Enabled = True
    Else
        Label1.FontSize = i
        Label1.Caption = Label1.FontSize
    End If
End Sub

Private Sub Timer2_Timer()
    i = i - 0.25
    If i < 0.5 Then
        Timer2.Enabled = False
        Timer1.Enabled = True
    Else
        Label1.FontSize = i
        Label1.Caption = Label1.FontSize
    End If
End Sub

VB6.0可使用Timer控件实现字体逐渐变大或变小。
Timer
控件，通过引发
Timer
事件，Timer
控件可以有规律地隔一段时间执行一次代码。
以下代码使用两个Timer控件和一个标签控件演示：
Option Explicit
Dim i As Single
Private Sub Form_Load()
Timer1.Interval = 50
Timer2.Interval = 50
i = 0.5
End Sub
Private Sub Timer1_Timer()
i = i + 0.25
If i > 100 Then
Timer1.Enabled = False
Timer2.Enabled = True
Else
Label1.FontSize = i
Label1.Caption = Label1.FontSize
End If
End Sub
Private Sub Timer2_Timer()
i = i - 0.25
If i < 0.5 Then
Timer2.Enabled = False
Timer1.Enabled = True
Else
Label1.FontSize = i
Label1.Caption = Label1.FontSize
End If
End Sub

“工具”----“选项”-----“编辑器格式”，里面有字体大小设置

??不明白"每个数字 由小变大 换个数字后 再从小变大"