Creating Custom Configurations

Public Class Server

#Region "Fields and Properties"
   Private _name As String
   Private _address As String
   Private _isSource As Boolean

   Public Property Name() As String
      Get
         Return _name
      End Get
      Set(ByVal Value As String)
         _name = Value
      End Set
   End Property

   Public Property IsSource() As Boolean
      Get
         Return _isSource
      End Get
      Set(ByVal Value As Boolean)
         _isSource = Value
      End Set
   End Property

   Public Property Address() As String
      Get
         Return _address
      End Get
      Set(ByVal Value As String)
         _address = Value
      End Set
   End Property
#End Region


#Region "Constructors"
   Public Sub New(ByVal name As String, ByVal address As String, ByVal isSource As Boolean)
      Me._name = name
      Me._address = address
      Me._isSource = isSource
   End Sub
   Public Sub New()
   End Sub
#End Region
End Class