Inheritance

Fitur utama dari OOP adalah usabilitas. Itu selalu menghemat waktu dan berguna jika kita dapat menggunakan kembali sesuatu yang sudah ada daripada mencoba untuk membuat hal yang sama lagi dan lagi. Menggunakan kembali kelas yang diuji, debugged dan digunakan berkali-kali dapat menyelamatkan kita waktu dan upaya pengembangan dan pengujian lagi. Setelah kelas telah ditulis dan diuji, dapat digunakan oleh program lain sesuai kebutuhan program. Hal ini dilakukan dengan menciptakan kelas baru dari kelas yang ada. Proses menurunkan kelas baru dari kelas yang ada disebut Warisan. Kelas tua disebut kelas dasar dan kelas baru ini disebut kelas turunan. Kelas turunan mewarisi beberapa atau semua dari kelas dasar. Dalam Visual Basic kita menggunakan Inherits kata kunci untuk mewarisi satu kelas dari yang lain. Bentuk umum dari sebuah kelas baru yang berasal dari kelas yang ada terlihat sebagai berikut:

Public Class One
---
---
End Class

Public Class Two
     Inherits One
---
---
End Class 


Menggunakan Inheritance kita dapat menggunakan variabel, metode, properti, dll, dari kelas dasar dan menambahkan fungsionalitas lebih ke dalam kelas turunan. Kode berikut menunjukkan proses Warisan dalam Visual Basic.

Imports System.Console
Module Module1

Sub Main()
Dim ss As New Two()
WriteLine(ss.sum())
Read()
End Sub

End Module

Public Class One
'base class
Public i As Integer = 10
Public j As Integer = 20

Public Function add() As Integer
Return i + j
End Function

End Class

Public Class Two
    Inherits One
'derived class. class two inherited from class one
Public k As Integer = 100

Public Function sum() As Integer
'using the variables, function from base class and adding more functionality
Return i + j + k
End Function

End Class