' Gambas class fileSTATIC PUBLIC SUB Main()  ' Took me a loong time before i found out that i had to   ' do this to actually see someting on the screen.    DIM blights AS Form    blights = NEW win1  blights.Show ' Show the lights    ENDPUBLIC SUB Timer1_Timer()      DIM l AS Integer  ' This will get a random value for each of the 8 lights  ' and turn the lights on or off.  ' Light 1  l = Rnd()*2  IF l = 0 THEN    l1.Picture = Picture["bloff.xpm"]  ELSE    l1.Picture = Picture["blon.xpm"]  ENDIF  ' Light 2  l = Rnd()*2  IF l = 0 THEN    l2.Picture = Picture["bloff.xpm"]  ELSE    l2.Picture = Picture["blon.xpm"]  ENDIF  ' Light 3  l = Rnd()*2  IF l = 0 THEN    l3.Picture = Picture["bloff.xpm"]  ELSE    l3.Picture = Picture["blon.xpm"]  ENDIF  ' Light 4  l = Rnd()*2  IF l = 0 THEN    l4.Picture = Picture["bloff.xpm"]  ELSE    l4.Picture = Picture["blon.xpm"]  ENDIF  ' Light 5  l = Rnd()*2  IF l = 0 THEN    l5.Picture = Picture["bloff.xpm"]  ELSE    l5.Picture = Picture["blon.xpm"]  ENDIF  ' Light 6  l = Rnd()*2  IF l = 0 THEN    l6.Picture = Picture["bloff.xpm"]  ELSE    l6.Picture = Picture["blon.xpm"]  ENDIF  ' Light 7  l = Rnd()*2  IF l = 0 THEN    l7.Picture = Picture["bloff.xpm"]  ELSE    l7.Picture = Picture["blon.xpm"]  ENDIF  ' Light 8  l = Rnd()*2  IF l = 0 THEN    l8.Picture = Picture["bloff.xpm"]  ELSE    l8.Picture = Picture["blon.xpm"]  ENDIFEND