Public Class SingleClass
    Private AnswerCl As Double
    Public ReadOnly Property Answer() As Double
        Get
            Return AnswerCl
        End Get
    End Property
    Public Sub Add(ByVal Num1 As Double, ByVal Num2 As Double)
        AnswerCl = Num1 + Num2
    End Sub
    Public Sub Subtract(ByVal Num1 As Double, ByVal Num2 As Double)
        AnswerCl = Num1 - Num2
    End Sub
    Public Sub Multiply(ByVal Num1 As Double, ByVal Num2 As Double)
        AnswerCl = Num1 * Num2
    End Sub

    Public Sub Divide(ByVal Num1 As Double, ByVal Num2 As Double)
        AnswerCl = Num1 / Num2
    End Sub
End Class