Question

如何用VB编写颜色变化的闪烁显示提醒文字？？

最好是流程简单的子程序

Answer 1

Private Sub Form_Load()
Timer1.Interval = 300
Label1.ForeColor = vbRed
End Sub

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlack
Else
Label1.ForeColor = vbRed
End If
End Sub