1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
' Copyright (c) Microsoft Open Technologies, Inc. All rights reserved. See License.txt in the project root for license information.
Namespace AdvancedPatternsVB
Partial Public Class AddressMf
Public Sub New()
End Sub
Public Sub New(ByVal street As String, ByVal city As String, ByVal state As String, ByVal zipCode As String, ByVal zone As Integer, ByVal environment As String)
Me.Street = street
Me.City = city
Me.State = state
Me.ZipCode = zipCode
SiteInfo = New SiteInfoMf(zone, environment)
End Sub
End Class
End Namespace
|
