Module Module1
Sub Main()
Dim dic As New Dictionary(Of Integer, String)
dic.Add(1, "VB.NET")
dic.Add(2, "Java")
dic.Add(5, "C++")
If dic.ContainsValue("C++") Then
Console.WriteLine("yes")
End If
' case-sensitive
If dic.ContainsValue("c++") Then
Console.WriteLine("yes")
Else
Console.WriteLine("no")
End If
End Sub
End Module
' run:
'
' yes
' no