VB交通灯的程序!!

Option Explicit
Dim I As Byte, Tim As Byte, Tim1 As Byte
Private Sub Form_Load()
Form1.AutoRedraw = True
For I = 0 To 2
Shape1(I).Width = 1000
Shape1(I).Height = 1000
Shape1(I).Top = 100
Shape1(I).Left = 100 + I * 1000
Shape1(I).FillStyle = 0
Shape1(I).Shape = 3
Shape1(I).BorderWidth = 10
Next
Shape1(0).FillColor = vbBlack
Shape1(1).FillColor = vbBlack
Shape1(2).FillColor = vbBlack
Label1.Caption = ""
Label1.Alignment = 1
Label1.Width = 3000
Label1.Height = 1000
Label1.Top = 1200
Label1.Left = 100
Label1.BackColor = &H0
Label1.ForeColor = vbRed
Label1.FontSize = 50
Tim = 0
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Tim = Tim + 1
Tim = Tim Mod 26
Select Case Tim
Case 0 To 4, 21 To 25
If Tim > 20 Then
Label1.Caption = 31 - Tim
Else
Label1.Caption = 5 - Tim
End If
Shape1(0).FillColor = vbRed
Shape1(1).FillColor = vbBlack
Shape1(2).FillColor = vbBlack
Case 5 To 7, 18 To 20
Tim1 = Tim Mod 13
Label1.Caption = 8 - Tim1
Shape1(0).FillColor = vbBlack
Shape1(1).FillColor = vbYellow
Shape1(2).FillColor = vbBlack
Case 8 To 17
Label1.Caption = 18 - Tim
Shape1(0).FillColor = vbBlack
Shape1(1).FillColor = vbBlack
Shape1(2).FillColor = vbGreen
End Select
End Sub

已经运行过。看是不是你要的？