Примеры ООП?

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim t1 As Double = CDbl(TextBox1.Text)
        Dim t2 As Double = CDbl(TextBox2.Text)
        Dim arf As New Arithmetic(t1, t2)
        Label1.Text = arf.Addition
        Label2.Text = arf.Subtraction
        Label3.Text = arf.Multiplication
        Label4.Text = arf.Division
    End Sub
End Class
Public Class Arithmetic
    Public Sub New(ByVal aa As Double, ByVal bb As Double)
        MyBase.New()
        _a = aa
        _b = bb
    End Sub
    Public Property a As Double
    Public Property b As Double
    Public Function Addition() As Double
        Return _a + _b
    End Function
    Public Function Subtraction() As Double
        Return _a - _b
    End Function
    Public Function Multiplication() As Double
        Return _a * _b
    End Function
    Public Function Division() As Double
        Return _a / _b
    End Function
End Class