ลบกวนน่อยครับ ยากทำ Dictionary ใน VB2010 จะแสดงข้อมูนที่แป่มาแสดงในส่วนของToolBox อันไนดี

    Sub Page_Load(sender As Object, e As EventArgs)		
        Dim objDict As StringDictionary
        Dim i As Integer
        Dim lsItem As String

        objDict = New StringDictionary

        objDict.Add("white", "#FFFFFF")
        objDict.Add("black", "#000000")
        objDict.Add("red", "#FF0000")
        objDict.Add("yellow", "#FFFF00")
        objDict.Add("green", "#00FF00")

        For Each lsItem In objDict.Keys
			Me.lblText1.Text = Me.lblText1.Text & "Key = " & lsItem & ", Value = " & objDict(lsItem) & "<br>"
        Next

		Me.lblText2.Text = objDict("red")
		
	End Sub