Perché usare una 'TextArea' quando si può usare una 'GridView'?
GridView1 As GridView
Public Sub Form_Open()
Dim aStringhe As String[] = ["DESCRIZIONE", "PREZZO", "", "", "Chiave inglese", "11,20", "Ferro da stiro a vapore", "32,40", "Macchinetta da caffè per cialde", "112,00", "Aermacchi bicilindrica 1953", "7.500,00"]
Dim iLoop, iRow As Integer
With Me
.padding = 5
.Height = 150
.Width = 300
.Arrangement = Arrange.Vertical
End With
With GridView1 = New GridView(Me) As "GridView1"
.Clear
.Expand = True
.Grid = False
.Rows.Count = aStringhe.Count / 2
.Columns.Count = 3
End With
For iLoop = 0 To aStringhe.Max Step 2
GridView1[iRow, 0].Text = aStringhe[iLoop]
GridView1[iRow, 1].Text = aStringhe[iLoop + 1]
GridView1[iRow, 1].Alignment = Align.Right
Inc iRow
Next
GridView1.Columns.Width = -1
End