→→→overrides

Class1


Public Class A
   Public Overridable Sub F()
         console.writeLine(" A.F ")
   End Sub
End Class


Public Class B
   Inherits A
   Public Overrides Sub F()
         console.writeLine(" B.F ")
   End Sub
End Class


Form1.vb
Private Sub Button1_Click(・・・
    Dim AA As New B()
    Call AA.F()
End Sub




---------------------------------------
表示されるのはB.F
BをAにすると表示されるのはA.F