Dim n As Int
Dim Gradi, Back, Sn, SGradi As String
For n= 0 To ListGradi.Size-1
Gradi=ListGradi.Get(n)
Back=ListBack.get(n)
Sn=" "
If n+1 < 10 Then Sn=" "
If n+1 > 99 Then Sn=" "
If Gradi.Length=2 Then SGradi = " "
If Gradi.Length=3 Then SGradi = " "
If Gradi.Length=4 Then SGradi = " "
labelrepo.Text=labelrepo.Text & "Measurement n° "& (n+1) & Sn & Gradi & SGradi & Back & CRLF
Next