Namespace Common

    Public Class Address

        Public CustomerID As String
        Public AddressID As String
        Public Address1 As String
        Public Address2 As String
        Public City As String
        Public Region As String
        Public Telphone As String
        Public Country As String
        Public PostalCode As String

        Public Function Add(ByVal Address1 As String, _
                            ByVal Address2 As String, _
                            ByVal City As String, _
                            ByVal Region As String, _
                            ByVal PostalCode As String, _
                            ByVal Country As String, _
                            ByVal Telphone As String _
                            ) As Address
            Dim objAddress As New Address()
            objAddress.Address1 = Address1
            objAddress.Address2 = Address2
            objAddress.City = City
            objAddress.Region = Region
            objAddress.Country = Country
            objAddress.PostalCode = PostalCode
            objAddress.Telphone = Telphone
            Return objAddress
        End Function

    End Class

End Namespace