Add keys/values to Dictionary at declaration

Dim dict = New Dictionary(Of Integer, String) From
{
    {1, "Test1"},
    {2, "Test2"}
}

Via.