Cambiar color de un Form por 5 segundos!

[01munrra]

Amigos como puedo cambiar el color del fondo por 5 segundos?

cada vez que presiono un botton llamado Error, este cambiara el color de fondo del form por 5 segundos. y que despues vuelva al color original

Código (vbnet) [Seleccionar] Expandir


Me.BackColor = System.Drawing.Color.OrangeRed


[XresH]

Usa un timer.. es lo mas simple y podes encontrar muchos ejemplos de como aplicarlo en tu proyecto.

Saludos.

[Lekim]

Hola

Código (vbnet) [Seleccionar] Expandir



Imports System.Threading.Tasks
Public Class Form1
   Private Sub btnError_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnError.Click
       Me.BackColor = Color.OrangeRed 'Cambia el color del Form
       btnError.Enabled = False 'Deshabilita el Botón
       '<Inicia un subproceso>
       Task.Factory.StartNew(Sub()
                                 Dim Segundos As Integer = 5
                                 System.Threading.Thread.Sleep(Segundos * 1000) 'Espera 5 segundos
                                 Me.Invoke(Sub() Me.BackColor = SystemColors.Control) 'Recupera el color del Form
                                 Me.btnError.Invoke(Sub() Me.btnError.Enabled = True) 'Vuelve a habilitar el botón
                             End Sub)

       Me.Width = 500
       Label1.Text = "Task genera un subproceso que se produce de forma independente" & Environment.NewLine _
           & "El evento Click lo ha iniciado y pasa a la línea siguiente para mostrar este texto"
   End Sub
End Class


[01munrra]

Lekim, funciona 100%... gracias!!