Access - Cambio de lor en boton

Private Sub NombreDelBoton_Click()

    Dim i As Integer

    For i = 1 To 10 ' Define la cantidad de veces que deseas que se repita el cambio de color

        Me.NombreDelBoton.BackColor = RGB(255, 0, 0) ' Cambia el color de fondo del botón al color deseado

        Me.NombreDelBoton.Repaint ' Actualiza el formulario para mostrar el cambio de color

        ' Pausa durante 500 milisegundos (0.5 segundos)

        ' Ajusta este valor según la velocidad deseada para el efecto de intermitencia

        Wait 500

        Me.NombreDelBoton.BackColor = RGB(255, 255, 255) ' Restaura el color de fondo original del botón

        Me.NombreDelBoton.Repaint ' Actualiza el formulario para mostrar el cambio de color

        ' Pausa durante 500 milisegundos (0.5 segundos)

        ' Ajusta este valor según la velocidad deseada para el efecto de intermitencia

        Wait 500

    Next i

End Sub

Private Sub Wait(ByVal milliseconds As Long)

    Dim stop_time As Date

    stop_time = DateAdd("s", (milliseconds / 1000), Now)

    Do While Now < stop_time

        DoEvents

    Loop

End Sub