Dim dic As New Dictionary(Of String, String)()
        For Each ctrl As Control In Panel2.Controls
            If Not dic.ContainsKey(ctrl.Text) Then
                dic.Add(ctrl.Text, 10)
            Else
                For i As Integer = 0 To dic.Count - 1
                    Dim item = dic.ElementAt(i)
                    Dim itemKey = item.Key
                    Dim itemValue = item.Value
                    dic(itemKey) = itemValue + 10
                Next
            End If
        Next
        ListBox1.DataSource = New BindingSource(dic, Nothing)