...
  Dim LItem As ComctlLib.ListItem

  Set LItem = ListView1.ListItems.Add
  LItem.SubItems(1) = str_name '"Name"
  LItem.SubItems(2) = str_company '"Company"
  LItem.SubItems(3) = str_phone '"Phone"
  LItem.SubItems(4) = str_comment '"Comment"
  LItem.SubItems(5) = CStr(id) '"ItemID"

Dim LItem As ListViewItem
LItem = ListView1.Items.Add("")

  LItem.SubItems(Column_Name) = str_name '"Name"
  LItem.SubItems(Column_Company) = str_company '"Company"
  LItem.SubItems(Column_Phone) = str_phone '"Phone"

LItem.SubItems(0).Text = str_name '"Name"

LItem.SubItems(2).Text = str_name '"Name"

LItem.SubItems.Count=1

    Dim LItem As New ListViewItem
    LItem.SubItems.Add("")
    LItem.SubItems.Add(str_name)
    LItem.SubItems.Add(str_company)
...
    ListView1.Items.Add(LItem)

LItem.SubItems.Add("")

  Public Sub ListViewSetSubItemPicture(ByVal m_ListView As System.Windows.Forms.ListView, _
   ByVal m_Item As Integer, ByVal m_subItem As Integer, ByVal m_Image As Integer)
    Dim lvi As New LV_ITEM
    With lvi
      .iItem = m_Item
      .iSubItem = m_subItem
      .mask = LVIF_IMAGE
      .iImage = m_Image
    End With
    Call SendMessage_LV_ITEM(m_ListView.Handle, LVM_SETITEM, 0, lvi)
  End Sub

lStyle Or LVS_EX_DOUBLEBUFFER

ImageList_ReplaceIcon(m_LViml, -1, My.Resources.ICON_IN_RESOURCES.Handle)

Public Class ListViewColumnSorter
  Implements IComparer
  ' Specifies the column to be sorted
  Private ColumnToSort As Integer
  ' Specifies the order in which to sort (i.e. 'Ascending').
  Private OrderOfSort As SortOrder
  ' Case insensitive comparer object
  Private ObjectCompare As CaseInsensitiveComparer

  ' Class constructor.  Initializes various elements
  Public Sub New()
    ' Initialize the column to '0'
    ColumnToSort = 0
    ' Initialize the sort order to 'none'
    OrderOfSort = SortOrder.None
    ' Initialize the CaseInsensitiveComparer object
    ObjectCompare = New CaseInsensitiveComparer()
  End Sub

  ' This method is inherited from the IComparer interface.
  ' It compares the two objects passed using a case insensitive comparison.
  ' <param name="x">First object to be compared</param>
  ' <param name="y">Second object to be compared</param>
  ' <returns>The result of the comparison. "0" if equal,
  ' negative if 'x' is less than 'y' and positive if 'x' is greater than 'y'</returns>
  Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    Implements IComparer.Compare
    Dim compareResult As Integer
    Dim listviewX, listviewY As ListViewItem

    ' Cast the objects to be compared to ListViewItem objects
    listviewX = CType(x, ListViewItem)
    listviewY = CType(y, ListViewItem)

    ' Compare the two items
    compareResult = ObjectCompare.Compare(listviewX.SubItems(ColumnToSort).Text,
                                          listviewY.SubItems(ColumnToSort).Text)

    ' Calculate correct return value based on object comparison
    If (OrderOfSort = SortOrder.Ascending) Then
      ' Ascending sort is selected, return normal result of compare operation
      Return compareResult
    ElseIf (OrderOfSort = SortOrder.Descending) Then
      ' Descending sort is selected, return negative result of compare operation
      Return (-compareResult)
    Else
      ' Return '0' to indicate they are equal
      Return 0
    End If
  End Function

  ' Gets or sets the number of the column to which to apply the sorting operation (Defaults to '0').
  Public Property SortColumn() As Integer
    Set(ByVal value As Integer)
      ColumnToSort = value
    End Set
    Get
      Return ColumnToSort
    End Get
  End Property

  ' Gets or sets the order of sorting to apply (for example, 'Ascending' or 'Descending').
  Public Property Order As SortOrder
    Set(ByVal value As SortOrder)
      OrderOfSort = value
    End Set
    Get
      Return OrderOfSort
    End Get
  End Property

End Class

Public Class Form1
  Private lvwColumnSorter As ListViewColumnSorter

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    ' Create an instance of a ListView column sorter and assign it 
    ' to the ListView control.
    lvwColumnSorter = New ListViewColumnSorter()
    ListView1.ListViewItemSorter = lvwColumnSorter


  Private Sub ListView1_ColumnClick(ByVal sender As Object,
   ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
    ' Determine if clicked column is already the column that is being sorted.
    If (e.Column = lvwColumnSorter.SortColumn) Then
      ' Reverse the current sort direction for this column.
      If (lvwColumnSorter.Order = SortOrder.Ascending) Then
        lvwColumnSorter.Order = SortOrder.Descending
      Else
        lvwColumnSorter.Order = SortOrder.Ascending
      End If
    Else
      ' Set the column number that is to be sorted; default to ascending.
      lvwColumnSorter.SortColumn = e.Column
      lvwColumnSorter.Order = SortOrder.Ascending
    End If

    ' Perform the sort with these new sort options.
    ListView1.Sort()
  End Sub

      lvwColumnSorter.SortColumn = e.Column
      lvwColumnSorter.Order = SortOrder.Ascending
      ListView1.Sort()