Dictionaryを初期化する時の記述方法は様々なパターンがありますので、
それぞれご紹介します。
Dim dic1 As New Dictionary(Of Integer, String)
dic1.Add(1, "りんご")
dic1.Add(2, "バナナ")
Dim dic2 As Dictionary(Of Integer, String) =
New Dictionary(Of Integer, String) From
{{1, "りんご"}, {2, "バナナ"}}
Dim dic3 As New Dictionary(Of Integer, String) From {
{1, "りんご"},
{2, "バナナ"}}
Dim dic4 = New Dictionary(Of Integer, String) From {{1, "りんご"}, {2, "バナナ"}}
Dim dic5 As New Dictionary(Of Integer, String)(dic4)
Dictionary初期化の記述方法はどれを使っても問題ありません。
一番下のコードは、既存のDictionaryデータをコピーして
新しいDictionaryを作成しています。