vb.net对运算符的重载

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim a As Person = New Person(3)

        Dim b As Person = New Person(4)

        a = a + 3

        TextBox1.Text = a.show()

    End Sub

End Class

Public Class Person

    Private b As Int32

    Public Sub New(Optional d As Int32 = 0)

        b = d

    End Sub

    Public Shared Operator +(ByVal f As Person, ByVal d As Int32) As Person

        f.b = f.b + d

        Return f

    End Operator

    Public Shared Operator =(ByVal c As Person, ByVal d As Person) As Boolean

        Return c.b = d.b

    End Operator

    'Public Shared Operator >(ByVal c As Person, ByVal d As Person) As Boolean

    '    Return c.b > d.b

    'End Operator

    'Public Shared Operator <(ByVal c As Person, ByVal d As Person) As Boolean

    '    Return c.b < d.b

    'End Operator

    Public Shared Operator <>(ByVal c As Person, ByVal d As Person) As Boolean

        Return c.b <> d.b

    End Operator

    Public Function show() As Int32

        Return b

    End Function

End Class