Public Sub set_listview(ByVal lv As ListView)
 
     With lv
         .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