Imagenes en ListView

[juandedios]

Revisando mi codigo y analizandolo, despues de tomarme una buena taza de cafe, encontre la solucion a mi pregunta:

Código:

Public Sub LlenarListView(ByVal StrSql As String, ByVal Table As String, _
                              ByVal LSTV As ListView, ByVal IMG As ImageList)
        cmdNem = New MySqlCommand(StrSql, cnNem)
        daNem = New MySqlDataAdapter
        dsNem = New DataSet

        daNem.SelectCommand = cmdNem
        daNem.Fill(dsNem, Table)

        For c As Integer = 0 To dsNem.Tables(Table).Columns.Count - 2
            LSTV.Columns.Add(dsNem.Tables(Table).Columns(c).Caption)
        Next

        With dsNem.Tables(Table)
            For f As Integer = 0 To .Rows.Count - 1
                Dim dato As New ListViewItem(.Rows(f).Item(0).ToString)
                dato.ImageIndex = 0
                ' recorrer las columnas
                For c As Integer = 1 To .Columns.Count - 2
                    dato.SubItems.Add(.Rows(f).Item(c).ToString())
                Next
                LSTV.Items.Add(dato)
            Next
        End With
End Sub

Puse

Código:

dato.ImageIndex = 0

Despues de

Código:

 Dim dato As New ListViewItem(.Rows(f).Item(0).ToString)

y solucionado