Private Sub Button1_Click
For i = 0 To Customers.Size-1
Private c As Customer
Private str As String
c = Customers.Get(i)
Private s1, s2, s3, s4 As String
s1 = addSpaces(c.ID, 1)
s2 = addSpaces(c.FirstName, 2)
s3 = addSpaces(c.LastName, 3)
s4 = c.Phone
str = $"${s1}${s2}${s3}${s4}"$
CustomListView1.AddTextItem(str, c.ID)
Next
End Sub
Private Sub addSpaces(s1 As String, pos As Int) As String
If pos = 1 Then
Do While s1.Length <= 8 Then
s1 = s1 & " "
Loop
else if pos = 2 Or pos = 3 Then
Do While s1.Length <= 20 Then
s1 = s1 & " "
Loop
End If
Return s1
End Sub