código flash vb

VB implementa código de parpadeo de fuente Opción Sub privada explícita Form_Load() Label1.Top = 850

Label1.Left = 750

Timer1.Interval = 555End Sub' Utilice el control del temporizador Temporizador para cambiar el color de fuente (ForeColor) regularmente

Private Sub Timer1_Timer() ChangeColor Label1, 1, 4, 8El proceso End Sub'Chc consiste en cambiar el color de fuente (ForeColor) cíclicamente

Sub ChangeColor(Cont como control, Color1 como entero, Color2 como entero, Color3 como entero) Si Val(Cont.Tag) = Color1 Entonces Cont.Tag = Color2 De lo contrario Val(Cont.Tag) = Color2 Entonces Cont Etiqueta = Color3 ElseIf Val(Cont.Tag) = Color3 Then Cont.Tag = Color1 Else Cont.Tag = Color1 End If Cont.ForeColor = QBColor(Cont.Tag)End Sub