Home » VB.Net » VB.Net Programs

VB.Net program to demonstrate the multiple-inheritance using the interface

By Nidhi Last Updated : November 13, 2024

Multiple-inheritance using the interface in VB.Net

Here, we will create three interfaces with method declarations and then implement the interfaces in the class using the implements keyword to achieve multiple-inheritance.

Program/Source Code:

The source code to demonstrate the multiple-inheritance using the interface is given below. The given program is compiled and executed successfully.

VB.Net code to implement the multiple-inheritance using the interface

'VB.net program to demonstrate the 
'multiple-inheritance using the interface.

Module Module1
    Interface ISample1
        Sub Fun1()
    End Interface

    Interface ISample2
        Sub Fun2()
    End Interface

    Interface ISample3
        Sub Fun3()
    End Interface


    Class Sample
        Implements ISample1, ISample2, ISample3

        Sub Fun1() Implements ISample1.Fun1
            Console.WriteLine("Fun1() called")
        End Sub
        Sub Fun2() Implements ISample2.Fun2
            Console.WriteLine("Fun2() called")
        End Sub
        Sub Fun3() Implements ISample3.Fun3
            Console.WriteLine("Fun3() called")
        End Sub
    End Class

    Sub Main()
        Dim S As New Sample()
        S.Fun1()
        S.Fun2()
        S.Fun3()
    End Sub
End Module

Output:

Fun1() called
Fun2() called
Fun3() called
Press any key to continue . . .

Explanation:

In the above program, we created a module Module1. Here, we implement multiple-inheritance by creating three interfaces ISample1, ISample2, and ISample3 that contain a declaration of methods. Then we implemented the methods in the Sample class using the implements keyword.

At last, we created a Main() function, which is the entry point for the program, here we created the object of Sample class and called the Fun1(), Fun2(), and Fun3() methods that will print an appropriate message on the console screen.

VB.Net Basic Programs »

---