Another Visual Basic Challenge

 VAR
 	i:INT:=1;
 	j: INT:=1;
 	delay:TON;
 	timing:TIME:=T#2s;
 	lights : ARRAY [1..10] OF BOOL;
 	number_leds:INT:=10;
 END_VAR
 
 
 FOR i:=1 TO number_leds DO
 	lights [i]:=(j=i);
 	delay(in:=TRUE,pt:=timing*10000/32767);
 	IF delay.q THEN
 		j:=j+1;
 		IF j > number_leds THEN
 			j:=1;
 		END_IF
 		delay(in:=FALSE);
 	END_IF
 END_FOR

 Option Explicit
 Private mLightNumber As Integer
  
 Private Sub Form_Load()
 mLightNumber = 7
 Dim ShapeLight As Shape
 For Each ShapeLight In Me.ShapeLight
 ShapeLight.FillColor = QBColor(15)
 Next
 End Sub
  
 Private Sub cmdStart_Click()
 Me.Timer1.Enabled = True
 End Sub

 Private Sub cmdStop_Click()
 Me.Timer1.Enabled = False
 End Sub
  
 Private Sub Timer1_Timer()
 Me.ShapeLight(mLightNumber).FillColor = QBColor(15)
 mLightNumber = mLightNumber + 1
 If mLightNumber > 7 Then mLightNumber = 0
 Me.ShapeLight(mLightNumber).FillColor = QBColor(10)
 End Sub