Foro de elhacker.net

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

Me.BackColor = System.Drawing.Color.OrangeRed
 

Hola

 
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
 

Lekim, funciona 100%... gracias!!  ;-)