VB题,该怎么解决

VB题
整么在VB中的label1控件中的文字不停的闪烁颜色

[解决办法]

VB code

Option ExplicitPrivate Sub Form_Load()Label1.FontSize = 24Label1.Caption = "颜色闪烁"Timer1.Interval = 100End SubPrivate Sub Timer1_Timer()Dim i As IntegerRandomizei = Int((6 * Rnd) + 1)Label1.ForeColor = QBColor(i)End Sub