13 Example2: Inheritance (2/5)  เราต้องปรับปรุง Class DerivedPerson Public Class DerivedPerson Inherits Person Inherits Person Public Function chkName () As String Public Function chkName () As String Dim i As Integer Dim i As Integer Dim temp _ name As String Dim temp _ name As String Dim result As Boolean = True Dim result As Boolean = True Const ascA As Integer = Asc ( a ) Const ascA As Integer = Asc ( a ) Const ascZ As Integer = Asc ( z ) Const ascZ As Integer = Asc ( z ) Person Property: Name Method: UpperName() DerivedPerson Property: Name Method: UpperName() Method: chkName() ให้สังเกตว่าหลังจากที่มีการถ่ายทอดจาก ต้นแบบมาทั้งหมด แล้ว Class DerivedPerson ได้ เพิ่มความสามารถ ด้วย Function chkName()
{}