Ciao, prova così
risnome.MoveFirst
For i = 0 To risnome.count - 1
raccolta(i).text = risnome!nome & " " & "(" & risnome!sigla & ")"
risnome.movenext
Next
for each risnome
raccolta(i).text = risnome!nome & " " & "(" & risnome!sigla & ")"
inc i
next
posto un esempio che modificato potrebbe aiutarti, io l'ho usato per settare la stessa altezza ad una serie di button dentro un pannello, se dovessi aggiungere altri button la procedura cambia le altezze e le regola in base alla quantità di button
For i = 1 To Panel1.Children.Count
Panel1.Children[i - 1].h = Panel1.h / Panel1.Children.Count
Panel1.Children[i - 1].Font = Font["arial, 12, Bold"]
Next
Public Sub Button1_Click()
Dim MioArray As String[] = ["uno", "due", "tre"]
Dim i As Integer = 0
Dim cnt As Control
For Each cnt In FMain.Controls
If Object.Type(cnt) = "Label" Then
Object.SetProperty(cnt, "Text", MioArray[i])
Inc i
Endif
Next
End
naturalmente è il codice di un form con 3 label e un button
Dim Apidb As New Connection
Dim query As String
Dim risultato As Result
Dim i As Integer
Dim raccnomi, raccdescr, raccfoto As New String[]
Dim racclbl, racctxtarea, raccpic As New Object[]
Dim cnt As Control
Connections["Apidb"].open
If Apidb.Error Then
Message("Impossibile trovare il db. Importare un db funzionante")
Else
query = "SELECT nome, sigla, descrizione, foto FROM nome_apiari"
risultato = Connections["Apidb"].Exec(query)
If risultato.Available Then
For Each risultato
raccnomi.Add(risultato!nome & " " & "(" & risultato!sigla & ")")
raccdescr.Add(risultato!descrizione)
raccfoto.Add(risultato!foto)
Next
Connections["Apidb"].Close
For i = 0 To raccnomi.Max
For Each cnt In Me.Controls
Select Case Object.Type(cnt)
Case "Label"
racclbl.Add(cnt)
With racclbl
.enabled = True
.transparent = True
.foreground = &HFFFFBF&
.text = raccnomi[i]
.alignment = 3
.visible = True
End With
Case "TextArea"
racctxtarea.Add(cnt)
With racctxtarea
.enabled = True
.foreground = &HFFFFBF&
.text = raccdescr[i]
.alignment = 3
.visible = True
.wrap = True
End With
Case "PictureBox"
raccpic.Add(cnt)
With raccpic
.enabled = True
.Picture = Picture.Load(raccfoto[i])
.stretch = True
.visible = True
End With
End Select
Next
Next
Inc i
Else
Message("Nessun Apiario è presente nel db")
Endif
Endif
se usi il tasto sopra col simbolo cancelletto puoi mettere codice in maniera più ordinata con la possibilità di mettere i tra parentesi quadre