One class implements two interfaces 1 : Class Definition « Class Module « VB.Net Tutorial

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

Public Class Tester
    Public Shared Sub Main
        Dim objJohn As New John
        objJohn.SetName("John")
        objJohn.SetAction("is painting")
        Console.WriteLine(objJohn.GetName() & " " & objJohn.GetAction())
    End Sub
End Class

Public Interface Person
    Sub SetName(ByVal Name As String)
    Function GetName() As String
End Interface

Public Interface Painter
    Sub SetAction(ByVal Name As String)
    Function GetAction() As String
End Interface

Public Class John
    Implements Person, Painter
    Dim InternalName, InternalAction As String

    Sub SetName(ByVal Name As String) Implements Person.SetName
        InternalName = Name
    End Sub

    Function GetName() As String Implements Person.GetName
        Return InternalName
    End Function

    Sub SetAction(ByVal Name As String) Implements Painter.SetAction
        InternalAction = Name
    End Sub

    Function GetAction() As String Implements Painter.GetAction
        Return InternalAction
    End Function
End Class

John is painting