Public Class GUI
 
    Dim WithEvents ListView1 As New ListView With {.Parent = Me}
 
    Private Sub GUI_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
        set_listview()
    End Sub
 
    Public Sub set_listview()
 
        With Me.ListView1
            .Items.Clear()
 
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
            .MultiSelect = False
 
            .Columns.Add("Software", 250, HorizontalAlignment.Left)
            .Columns.Add("installierte Version", 150, _
              HorizontalAlignment.Left)
            .Columns.Add("verfügbare Version", 150, _
            HorizontalAlignment.Left)
            .Columns.Add(" ", 150, HorizontalAlignment.Left)
        End With
 
    End Sub
End Class
 
Public Class controller
    <STAThread()> _
    Shared Sub Main()
 
        Dim myGUI As New GUI
        Application.Run(myGUI)
 
    End Sub
End Class