Namespace HR
    Public Class Salary
        Protected m_Hours As Double
        Protected m_empName As String = ""
        Protected m_Rate As Double
        Public Sub New()
        End Sub
        Public Property EmpName() As String
            Get
                Return m_empName
            End Get
            Set(ByVal Value As String)
                m_empName = Value
            End Set
        End Property
        
        Public Property Rate() As Double
            Get
                Return m_Rate
            End Get
            Set(ByVal Value As Double)
                If Value <= 500 And Value >= 10 Then
                    m_Rate = Value
                Else

                End If
            End Set
        End Property
Public Property Hours() As Double
            Get
                Return m_Hours
            End Get
            Set(ByVal Value As Double)
                m_Hours = Value
            End Set
        End Property
           
        Public ReadOnly Property Pay() As Double
            Get
                Dim total As Double
                If (m_Hours <= 40) Then
                    total = m_Hours * m_Rate
                Else
                    total = 40 * m_Rate + 1.5 * (m_Hours - 40) * m_Rate
                End If
                Return total
            End Get
        End Property
    End Class
End Namespace