How to add groups on listview

I have here a simple sample on how to group in a listview. I hope this simple code can help to someone needed this.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim group1 As New ListViewGroup(”Group 123″, HorizontalAlignment.Left)
group1.Name = “Group 123″
ListView1.Groups.Add(group1)

With ListView1.Items
.Add(”123″)
.Item(.Count - 1).SubItems.Add(”ABC”)
.Item(.Count - 1).SubItems.Add(”1/11/05″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”TV”)
.Item(.Count - 1).Group = group1
.Add(”123″) .Item(.Count - 1).SubItems.Add(”DEF”)
.Item(.Count - 1).SubItems.Add(”1/11/05″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”VCD”)
.Item(.Count - 1).Group = group1
.Add(”123″)
.Item(.Count - 1).SubItems.Add(”GHI”)
.Item(.Count - 1).SubItems.Add(”1/11/05″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”TVRACK”)
.Item(.Count - 1).Group = group1

Dim group2 As New ListViewGroup(”Group 234″, HorizontalAlignment.Left)
group2.Name = “Group 234″

ListView1.Groups.Add(group2)
.Add(”234″)
.Item(.Count - 1).SubItems.Add(”KLM”)
.Item(.Count - 1).SubItems.Add(”1/12/06″)
.Item(.Count - 1).SubItems.Add(”1″)
.Item(.Count - 1).SubItems.Add(”MIC”)
.Item(.Count - 1).Group = group2
End With
End Sub

End Class