German Labels per Code generiert, wie mit Text füllen

For TT=0 To 420 Step 105
   For L=10 To 412 Step 67
      For T=1+TT To 90+TT Step 18
         Dim lbl As Label         
         lbl.Initialize("lbl")
         lbl.Color=Colors.Green
         lbl.TextColor=Colors.Black
         lbl.TextSize=11
         lbl.Text = L & "." & T
         Panel1.AddView(lbl,L,T,60,19)
      Next
   Next
Next

Dim lbl(n) as Label
dim ctr as int
ctr = 0
' n ist Anzahl der Label die du brauchst

' dann die innere Schleife

     For T=1+TT To 90+TT Step 18            
         ' Dim lbl As Label                       
          ctr=ctr+1
          lbl(ctr).Initialize("lbl")            
          lbl(ctr).Color=Colors.Green
          lbl(ctr).TextColor=Colors.Black
          lbl(ctr).TextSize=11
          lbl(ctr).Text = L & "." & T
          lbl(ctr).tag = ctr         ' um den Label im Event "lbl" zu identifizieren
          Panel1.AddView(lbl(ctr),L,T,60,19)
     Next

Sub Activity_Create(FirstTime As Boolean)

   Dim lbl(175) As Label
   Dim i As Int
   i=1
   For TT=0 To 420 Step 105
      For L=9 To 411 Step 67
         For T=TT To 89+TT Step 18
                     
            lbl(i).Initialize("lbl")
            lbl(i).Color=Colors.Green
            lbl(i).TextColor=Colors.Black
            lbl(i).TextSize=11
            lbl(i).Text= i
            i=i+1
            Panel1.AddView(lbl(i),L,T,60,19)
         Next
      Next
   Next
End Sub

Type newview(lab as Label, edt as Edittext)
'Das wäre ein Label & ein Edittext.