VB overrides をつけれない

Question

Visual Basicにて継承の勉強をしています。
class1 から class2 への継承はできましたが、
オーバーライドがうまくいきません。

Function GetAge() As Integer の前に Overrides を指定すると
基底クラスで function をオーバーライドしないため、function 'GetAge' を 'Overrides' として宣言することはできません。
とエラーがでます。

どこがいけないでしょうか？
以下がソースコードになります。

class1.vb

Public Class Class1
    Public Property Name As String
    Public Property 誕生日 As Date

    Public Sub New(ByVal name As String, ByVal 誕生日 As Date)
        Me.Name = name
        Me.誕生日 = 誕生日
    End Sub

    Public Overrides Function GetAge() As Integer  'ここにOverridesを入れるとエラーがでる
        Dim age As Integer = Today.Year - Me.誕生日.Year
        If Today.Month < Me.誕生日.Month OrElse
           Today.Month = Me.誕生日.Month AndAlso
           Today.Day < Me.誕生日.Day Then
            age = age - 1
        End If

        Return age
    End Function
End Class

class2.vb

Public Class Class2
    Inherits Class1

    Public Property Address As String

    Public Sub New(name As String,
                   誕生日 As Date,
                   address As String)
        MyBase.New(name, 誕生日)
        Me.Address = address
    End Sub

    Public Overrides Function GetAge() As Integer
        MessageBox.Show("計算します。")
        Return MyBase.GetAge()
    End Function
End Class

フォーム

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim person As New Class2(TextBox1.Text, DateTimePicker1.Value.Date, TextBox2.Text)

        MessageBox.Show(person.Name & "さんの年齢は" & CStr(person.GetAge()) & "歳です。" &
                        vbCrLf & "住所は" & person.Address)
    End Sub
End Class

[環境]
Visual Studio 2019 Commnity
言語　Visual Basic
テンプレート　Windowsフォームアプリケーション(.NET Framework)
OS Windows 10

Answer 1

Overrides ではなく、Overridable と入力する

Answer 2

基底クラスで同じ名前のメソッドがないとつけれません。また、付ける意味もありません

Comments

[yukkuri_55]

基底クラスはclass1なのですが、どういうふうにすればいいのでしょうか？

[y_waiwai]

class1の基底クラスで同じ名前のメソッドがないとつけれないというはなしですよ。

[yukkuri_55]

Overrides ではなく、Overridable に変更したらうまくいきました。