One Class implements two interfaces : Interface « Class Module « VB.Net Tutorial

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

Option Strict On
 Imports System

     Interface Printable
         Sub Read( )
         Sub Write(ByVal obj As Object)
         Property Status( ) As Integer
     End Interface 'Printable

     Interface Zippable
         Sub Zip( )
         Sub Unzip( )
     End Interface

     Public Class Document
         Implements Zippable, Printable

         Public Sub New(ByVal s As String)
             Console.WriteLine("Creating document with: {0}", s)
         End Sub 'New

         Public Sub Read( ) Implements Printable.Read
             Console.WriteLine("Implementing the Read Method for Printable")
         End Sub 'Read

         Public Sub Write(ByVal o As Object) Implements Printable.Write
             Console.WriteLine( _
               "Implementing the Write Method for Printable")
         End Sub 'Write

    Public Property Status( ) As Integer Implements Printable.Status
             Get
                 Return myStatus
             End Get
             Set(ByVal Value As Integer)
                 myStatus = Value
             End Set
         End Property

         Public Sub Zip( ) Implements Zippable.Zip
             Console.WriteLine("Implementing Zip")
         End Sub

         Public Sub Unzip( ) Implements Zippable.Unzip
             Console.WriteLine("Implementing Unzip")
         End Sub

         Private myStatus As Integer = 0
     End Class 

     Class Tester
         Shared Sub Main( )
             Dim doc As New Document("Test Document")
             doc.Status = -1
             doc.Read( )
             doc.Zip( )
             Console.WriteLine("Document Status: {0}", doc.Status)
         End Sub 'Main
     End Class

Creating document with: Test Document
Implementing the Read Method for Printable
Implementing Zip
Document Status: -1