Private Sub ListView1_DrawSubItem(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs) _
        Handles ListView1.DrawSubItem
 
   If e.columnindex = 2 Then
      If ListView1.Items(e.ItemIndex).SubItems(5).Text.Length > 0 Then         
         Dim index As Integer = ListView1.Items(e.ItemIndex).ImageIndex
         If Index >= 0 then            
            Dim bmp As System.Drawing.Bitmap = _
            CType(ImageList1.Images(index), System.Drawing.Bitmap)
            Dim ico As System.Drawing.Icon = _
            System.Drawing.Icon.FromHandle(bmp.GetHicon)
            e.Graphics.DrawIcon(ico, e.Bounds.X, e.Bounds.Y)
         end if
      End If
   End If
 End Sub