dim ampel as integer
 
Private Sub Form_Load()
   ampel =0
End Sub
 
Private Sub cmdampel_Click()
if ampel =0 then
   ampel = 1
   lblrot.(die art der Farbe) = Farbwert
 else
   ampel = 2
   lblgelb.(die art der Farbe) = Farbwert
 else
  ampel = 0
   lblgrün.(die art der Farbe) = Farbwert
end if
end sub

__________________________
selbst der beste Programmierer
braucht auch Hilfe
__________________________