A Public Class Customer Shared m_AddressString As String Public Sub New() End Sub Public Shared Function GetAddress() As String Return m_AddressString End Function End Class
B Public Class Customer Private m_AddressString As String Public Sub New() End Sub Private Function GetAddress() As String Return m_AddressString End Function End Class
C Public Class Customer Private m_AddressString As String Public Sub New(ByVal Address As String) m_AddressString = Address End Sub Public Function GetAddress() As String Return m_AddressString End Function End Class
D Public Class Customer Private m_AddressString As String Public Sub New() End Sub Public Function GetAddress() As String Return m_AddressString End Function End Class