É como se fosse leds, tentei fazer com dois shapes, alternando cores e o doevents, mais não deu certo, alguém tem uma idéia de código ?, abaixo como eu fiz:

 

Private Sub Form_Activate()
 Tempo = Timer
 Do While (Timer < Tempo + (3 / 1))
  DoEvents
  op1.FillColor = &HFF00&
  op2.FillColor = &HFF&
  op1.FillColor = &HFF&
  op2.FillColor = &HFF00&
 Loop
 Unload Me
 Set frmaviso = Nothing
End Sub

coloque um shape sobre o outro retire o laço e mude o timer para o intervalo de acordo com sua necessidade, assim tente inserir este código no evento do timer

op1.visible=not(op1.visible)

op2.visible=not(op2.visible)

assumindo que em tempo de desenho um tenha a propriedade visivel verdadeira e o outro falsa deve funcionar.