dim sum as decimal
   For i As Integer = 1 To 30
       labels(i).BackColor = Color.Red
       If CDec(labels(i).Text) < 0 Then labels(i).BackColor = Color.Green
       sum += cdec(labels(i).text)
   Next i
 
   dim mw as decimal = sum / 30