All pastes #268312 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-12-05 16:41 UTC
rendered paste body

Private Sub cmdPay_Click()
    If Me.txtMoney.Text = "" Then
    MsgBox "Please Enter The Amount Of Money You Have"
    Else
    Me.lblchange.Caption = txtMoney - Me.lblFinalTotal.Caption
    End If
End Sub