Public Class Form1
Dim g(26) As ListViewGroup
Dim l As New ListViewItem

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim ix As Integer
Dim elemento As String
Dim iniziale As String
'parametri connessione database
for i=0 to 'totale record database
elemento = dr.tables("anagrafe").row("cognome") + " " + dr.tables("anagrafe").row("Nome")
iniziale = elemento.Chars(0)
For i = 0 To 25
If iniziale = g(ix).Header Then
l.Text = elemento
l.Group = g(i)
ListView1.Items.Add(l)
End If
Next i
End Sub
Sub creazione()
Dim i As Integer
Dim iniz As Integer = 65
For i = 0 To 25
g(i) = New ListViewGroup
g(i).Header = Chr(iniz)
ListView1.Groups.Add(g(i))
Next i
End Sub
End Class