Implements two interfaces and WriteOnly Property : Interface « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Interface

Imports System

  Module HelloWorld
    Public Sub Main()
      Dim hs as New Person
      hs.Name = "MyName"
      hs.Address = "My Address"
      Console.WriteLine(hs.GetName())
      Console.WriteLine(hs.GetAddress())
    End Sub
  End Module
  
  Public Interface IName
    Function GetName() as String    
  End Interface
  
  Public Interface IAddress
    Function GetAddress() as String    
  End Interface
  
  Public Class Person
    Implements IName, IAddress
    Private s_name, s_address as String
  
    Public Sub New()
    End Sub
  
    Public WriteOnly Property Name() as String
      Set
        s_name = value
      End Set
    End Property
  
    Public WriteOnly Property Address() as String
      Set
        s_address = value
      End Set
    End Property
  
    Public Function GetName() as String Implements IName.GetName
      GetName = s_name
    End Function
  
    Public Function GetAddress() as String Implements IAddress.GetAddress
      GetAddress = s_address
    End Function
  End Class