Module Module1

    Sub Main()
        Dim Exp As Object = New Dynamic.ExpandoObject
        Dim ExpDict = DirectCast(Exp, IDictionary(Of String, Object))

        ExpDict.Add("UserName", "test")
        ExpDict.Add("Password", "12345")
        ExpDict.Add("Validate", Function(str, str2) str = "test" And str2 = "12345")

        Dim strName As String = Exp.UserName
        Dim strPassword As String = Exp.Password

        Console.WriteLine(strName)
        Console.WriteLine(strPassword)
        Console.WriteLine(Exp.Validate.Invoke(strName, strPassword))

        Console.ReadLine()
    End Sub

End Module

Module Module1

    Sub Main()
        Dim go As Object = New GoodObject

        Console.WriteLine("{0} {1}!", go.Hello, go.World)
        Console.ReadLine()
    End Sub

End Module

Public Class GoodObject
    Inherits Dynamic.DynamicObject

    Public Overrides Function TryGetMember(binder As Dynamic.GetMemberBinder, ByRef result As Object) As Boolean
        Select Case binder.Name
            Case "Hello"
                result = "Привет"
                Return True

            Case "World"
                result = "Мир"
                Return True

            Case Else
                Return False

        End Select

    End Function
End Class