Public Class controller
    <STAThread()> _
    Shared Sub Main()
 
        Application.Run(New GUI)
 
    End Sub
End Class

    Private Sub GUI_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim lw As New Listview()
        lw.set_listview()
 
    End Sub

    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