用VB編個紅綠燈的程序，要求紅燈停留5秒在跳黃燈，黃燈停留三秒跳綠燈，綠燈停留五秒再跳紅燈，無限循環

紅image1(0)

黃image2(1)

綠image3(2)

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '聲明

Private Sub Form_activate()

image1(0).visible=true

image1(1).visible=false

image1(2).visible=false

i=1

doevents

sleep (5)

do while true

if i>2 then i=i-3

image1(i-1).visible=not image1(i-1).visible

image1(i).visible=not image1(i).visible

doevents

sleep(5)

i=i+1

loop

end sub