Make a Button Blink????

[Zach]

How do i make for instance ButtonA blink for 3 seconds if a certain
result comes up with the click of Button B????

 

[marcus]

Hi Zach

Give this a try. You will need to create two Command buttons named
Commandbutton1 and Comandbutton2.

Take Care

Marcus

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer

Do Until i = 3
Application.Wait (Now + TimeValue("0:00:" & i))
If CommandButton2.BackColor = &H8000000D Then
CommandButton2.BackColor = &H8000000E
ElseIf CommandButton2.BackColor = &H8000000E Then
CommandButton2.BackColor = &H8000000D
End If
i = i + 1

Loop

End Sub