Inheritance Polymorphism in vb.net

Satyapriyanayak
Posted by Satyapriyanayak under VB.NET category on | Points: 40 | Views : 2105
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As New raj1
Dim b As New raj2
display(a)
display(b)
End Sub
Public Sub display(ByVal x As raj1)
x.amit("sagar")
End Sub
Public Class raj1
Public Overridable Sub amit(ByVal s As String)
MsgBox("Hello" & s)
End Sub
End Class
Public Class raj2
Inherits raj1
Public Overrides Sub amit(ByVal s As String)
MsgBox("Hello" & s)
End Sub
End Class
End Class

Comments or Responses

Login to post response