Dim ar(9) as double
 
' zuweisung der zahlen zum array
 
for x as integer = 0 to 9
    for each con as control in me.controls ' me ist das control auf dem die 
    ' labels sind
        if Typeof con is Label andalso con.Name = "lblFenster" & (x + _
          1).ToString then
            ctype(con,Label).Text = ar(x).ToString("N2")
        End if
    Next con
Next x