如何让label字体的颜色循环改变？谢谢！

例如，先蓝色，在红色，在黑色，然后在蓝色，红色，黑色。如此循环。。谢谢 --------------------编程问答-------------------- Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Static i As Long
Select Case i
    Case 1
        Label1.ForeColor = vbBlue
    Case 2
        Label1.ForeColor = vbRed
    Case 3
        Label1.ForeColor = vbBlack
End Select
i = i Mod 3 + 1
Debug.Print i
End Sub

补充：VB ,  基础类