Public gf_MyPay As New CCompPay
 
Private Sub cmdCompute_Click()
If txtHours.Text <> "" And txtRate.Text <> "" Then
    If CInt(txtHours.Text) > 0 And CDbl(txtRate.Text) > 0 Then
        gf_MyPay.NoHours = CInt(txtHours.Text)
        gf_MyPay.Rate = CDbl(txtRate.Text)
        txtPay.Text = gf_MyPay.Pay
    Else
        MsgBox "Error: Zero Value Found...", vbOKOnly, "May Error po"
    End If
Else
    MsgBox "Error: Blank information Found!!!", vbOKOnly, "May Error po"
End If
End Sub

Private m_NoHours As Integer
Private m_Rate As Double
Private m_Pay As Double
 
Public Property Get NoHours() As Integer
NoHours = m_NoHours
End Property
 
Public Property Let NoHours(ByVal iNewValue As Integer)
m_NoHours = iNewValue
End Property
 
Public Property Get Rate() As Double
Rate = m_Rate
End Property
 
Public Property Let Rate(ByVal dNewValue As Double)
m_Rate = dNewValue
ShowPay
End Property
 
Private Sub ShowPay()
m_Pay = m_NoHours * m_Rate
End Sub
 
Public Property Get Pay() As Double
Pay = m_Pay
End Property
 
Public Property Let Pay(ByVal dNewValue As Double)
m_Pay = dNewValue
End Property