//defines base classPublic Class parent//define method Public Overridable Sub display() System.Console.WriteLine("from parent...") End SubEnd Class//define derived classPublic Class child Inherits parent//shadowing method..... Public Shadows Sub display() System.Console.WriteLine("from child....") End SubEnd ClassModule Module3 Sub main()//defining base class variavle Dim p As parent//instantiating derived class & assigning to base clas variable p = New child//invoking method p.display() End SubEnd Module