Создание нескольких меток и добавление текста в vb.net

Question

У меня есть список KeyValuePair s, где число KeyValuePair s изменяется со временем. В форме мне нужно создать ярлык для каждого KeyValuePair, который содержит текст Value.

Как это сделать?

Это то, что я пытался ...

For Each element In keyvalueP 
      Dim Label1 As New Label 
      With Label1 
       .Width = 512 
       .Height = 18 
       .Left = 12 
       .Text = " Nr. " & i & " - Matchtype " & element.Value.ToString 
      End With 
      i = i + 1 
Next 

Answer 1

Я на самом деле удалось найти решение, которое работало

Private Sub R75Dialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Dim labelText = "" 
     Dim i = 0 
     For Each element In keyvalueP 
     labelText = " Nr. " & i & " Groupname: " & element.Key.ToString & " - Matchtype " & element.Value.ToString 
     Dim label As New Label() 
     Dim count As Integer = Panel1.Controls.OfType(Of Label)().ToList().Count 
     label.Location = New Point(10, (25 * count) + 2) 
     label.Size = New Size(1000, 20) 
     label.Name = "label_" & (count + 1) 
     label.Text = labelText 
     Panel1.Controls.Add(label) 
     i = i + 1 
    Next 
End Sub