title: VB dictionary contains value return key
body: <p>I have a problem...
  I am trying to put into a list of String dictionary keys values if condition of containsvalue is true:</p>
  
  <p>But, this is not correct :(</p>
  
  <p>here is a code:</p>
  
  <pre><code>Private listID As New List(Of String)                       ' declaration of list
  Private dictionaryID As New Dictionary(Of String, Integer)  ' declaration of dictionary
  
    'put a keys and values to dictionary
    dictionaryID.Add("first", 1)
    dictionaryID.Add("second", 2)
    dictionaryID.Add("first1", 1)
  
  
      If dictionaryID.ContainsValue(1) Then                 ' if value of dictinary is 1
          Dim pair As KeyValuePair(Of String, Integer)
          listID.Clear()
          For Each pair In dictionaryID
              listID.Add(pair.Key)
          Next
      End If
  </code></pre>
  
  <p>And now, list must have two elements... -> "first" and "first1"</p>
  
  <p>Can you help me?
  Thank you very much!</p>