Public Class Controler
 
    Shared Sub Main()
        Dim frm1 As New Form1
        Application.Run(frm1)
    End Sub
 
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim lv As New ViewListview
        lv.set_listview(Me)
 
    End Sub
 
End Class

Public Class ViewListview
 
    Public Sub set_listview(ByVal frm As Form1)
 
        frm.ListView1.Clear()
 
        frm.ListView1.View = View.Details
        frm.ListView1.GridLines = True
        frm.ListView1.FullRowSelect = True
        frm.ListView1.MultiSelect = False
 
        frm.ListView1.Columns.Add("Software", 250, HorizontalAlignment.Left)
        frm.ListView1.Columns.Add("installierte Version", 150, _
          HorizontalAlignment.Left)
        frm.ListView1.Columns.Add("verfügbare Version", 150, _
        HorizontalAlignment.Left)
        frm.ListView1.Columns.Add(" ", 150, HorizontalAlignment.Left)
 
    End Sub
end class

Public Sub set_listview(ByVal frm As Form1)