Make a Button Blink????

  • Thread starter Thread starter Zach
  • Start date Start date
Z

Zach

How do i make for instance ButtonA blink for 3 seconds if a certain
result comes up with the click of Button B????
 
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
 
Back
Top