FAIRE FLASHER UN TEXTE DANS UN LABEL

Public SwitchVal As Boolean

Private Sub Timer1_Timer()
    If ChangeDeTexte(SwitchVal) = True Then
        Label1.Caption = "Visual Basic c'est Cool !"
    Else
        Label1.Caption = ""
    End If
End Sub

Public Function ChangeDeTexte(Switch As Boolean) As Boolean
    Select Case Switch
        Case True
            ChangeDeTexte = True
            SwitchVal = False
        Case False
            ChangeDeTexte = False
            SwitchVal = True
    End Select
End Function