سوال در مورد Dictionary

[mkk_ce]

سلام

این تیکه کد چرا اجرا نمیشه؟
من کلید رو قبلا معرفی کردم ولی خطا میده که کلید وجود نداره!!
فکر کنم تو مقایسه مشکلی وجود داره که باید تو کلاس تعریف بشه ولی نمیدونم چطور.

با تسکر





PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim PointAssign AsNewDictionary(OfString2, String)

PointAssign.Add(NewString2("1", "2"), "Salam")
PointAssign.Add(NewString2("1", "3"), "Khoobi?")
MsgBox(PointAssign.Item(NewString2("1", "3")))
EndSub

PublicClassString2
Public Str1 AsString
Public Str2 AsString
PublicSubNew(ByVal S1 AsString, ByVal S2 AsString)

Str1 = S1
Str2 = S2

End Sub
Public Overloads Function Equals(ByVal obj AsString2) AsBoolean
If obj.Str1 = Str1 And obj.Str2 = Str2 Then
Return True
Else
Return False
EndIf

ReturnMyBase.Equals(obj)
End Function
End Class