label 製作閃爍

加一个timer控件 然后添加如下代码：

Private Sub Form_Load()
    Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
    Static x As Integer
    x = x + 1
    If x = 1 Then
        Label1.Visible = False
    Else
        x = 0
        Label1.Visible = True
    End If
End Sub