#Region "imports/option"
Option Explicit On
Option Strict On
 
#End Region
 
Public Class Listview
 
 
    Public Sub set_listview()
 
        GUI.ListView1.Clear()
 
        GUI.ListView1.View = View.Details
        GUI.ListView1.GridLines = True
        GUI.ListView1.FullRowSelect = True
        GUI.ListView1.MultiSelect = False
 
        GUI.ListView1.Columns.Add("Software", 250, HorizontalAlignment.Left)
        GUI.ListView1.Columns.Add("installierte Version", 150, _
          HorizontalAlignment.Left)
        GUI.ListView1.Columns.Add("verfügbare Version", 150, _
        HorizontalAlignment.Left)
        GUI.ListView1.Columns.Add(" ", 150, HorizontalAlignment.Left)
 
    End Sub
 
 
    Public Sub fill_listview(ByVal item As String, ByVal subItem1 As String, _
      ByVal subitem2 As String, ByVal subitem3 As String)
 
        Dim myItem As New ListViewItem(item)
 
        myItem.SubItems.Add(subItem1)
        myItem.SubItems.Add(subitem2)
        myItem.SubItems.Add(subitem3)
        GUI.ListView1.Items.Add(myItem)
 
    End Sub
 
End Class

        Dim lv As New Listview
        lv.set_listview()