Dim cards As Integer= -1
        Dim desc As New List(Of String)
        For Each card In hInstance
            cards += 1
            desc.Add(card.description)
        Next card
 
        For i As Integer = 0 To cards
            GroupBox2.Height = 100     
            Dim newlabel As New Label
            With newlabel
              .Location = New Point(6, 30 * i)
              .Name = "lblGraka_" & CStr(i)
              .Size = New Size(newLabel.PreferredWidth, _
              newLabel.PreferredHeight)
              .Text = "Grafikkarte:  " & desc(i)
           End With 
           GroupBox2.Controls.Add(newLabel) 
        Next i