Iniciante ....e Timer :-(

[ccsecco]

Olá pessoal, espero que possam me ajudar estou iniciando e preciso fazer um programinha e estou parado por causa de um probleminha...lá vai !!!!!

Tenho 3 picturebox quero mudar a cor de fundo delas uma apos 1 segundo da outra. + ou - assim:

Timer1_Timer()

Timer1.Interval = 500

Picture1.Backcolor = RGB(255, 0, 0)

Picture2.Backcolor = RGB(255, 0, 0)

Picture3.Backcolor = RGB(255, 0, 0)

Timer1.Enabled = False

End

Só tem um problema, as 3 caixas mudam de cor ao mesmo tempo !!!

Como deveria ser o codigo para que elas mudem de cor uma 500ms depois da outra ???

Até mais......

Caio Cesar

[romudd]

Não se preocupe. essa é simples... acontece que você está mudando as três caixas no mesmo tick do Timer. Você tem que fazer com que em cada passagem pela rotina apenas uma seja trocada. Assim:

Timer1_Timer()
if Picture1.Backcolor <> RGB(255, 0, 0) then
   ' Se a Picture1 não tiver sido mudada, muda e sai
   Picture1.Backcolor = RGB(255, 0, 0)
   exit sub
end if

if Picture2.Backcolor <> RGB(255, 0, 0) then
   ' Se a Picture2 não tiver sido mudada, muda e sai
   Picture2.Backcolor = RGB(255, 0, 0)
   exit sub
end if

if Picture3.Backcolor <> RGB(255, 0, 0) then
   ' Se a Picture3 não tiver sido mudada, muda e sai
   Picture3.Backcolor = RGB(255, 0, 0)
   Timer1.Enabled = False
   exit sub
end if

end Sub