Dynamic Console App for Invoking .NET Assemblies

Imports System.IO

Public Class MessageHandler

    Private _x As Integer
    Private _y As Integer

    Public Property x() As Integer
        Get
            Return Me._x
        End Get
        Set(ByVal value As Integer)
            Me._x = value
        End Set
    End Property

    Public Property y() As Integer
        Get
            Return Me._y
        End Get
        Set(ByVal value As Integer)
            Me._y = value
        End Set
    End Property

    Public Function GetSystemTime() As DateTime
        Return DateTime.Now
    End Function

    Public Function Add(ByVal x As Decimal, ByVal y As Decimal) As Decimal
        Return x + y
    End Function

    Public Function GetFileSize(ByVal fileName As String, ByVal fileType As Integer) As Long
        Dim fInfo As New FileInfo(fileName)

        Return fInfo.Length
    End Function

    Public Function ReturnCustomerObject(ByVal fileName As String) As ReturnValue
        Return New ReturnValue("This is a custom Object")
    End Function

    Public Function ReturnList(ByVal lastEliment As String) As List(Of String)
        Dim obj As New List(Of String)(10)

        obj.Add("this")
        obj.Add("list")
        obj.Add("custom")
        obj.Add("objects")
        obj.Add("recursive")
        obj.Add("comments")
        obj.Add(lastEliment)

        Return obj
    End Function

    Public Sub New()

    End Sub

    Public Sub New(ByVal x As Integer, ByVal y As Integer)
        Me._x = x
        Me._y = y
    End Sub
End Class