VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cConta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' Classe cConta

Private mSaldo As Double
Private fSaldoNegativo As Boolean
Public Event SaldoNegativo()     ' É disparado quando o Saldo passa de positivo a negativo
Public Event SaldoPositivo()     ' É disparado quando o Saldo passa de negativo a positivo

Public Sub Depositar(Valor As Double)
    mSaldo = mSaldo + Valor
    If fSaldoNegativo Then
        If mSaldo >= 0 Then
            fSaldoNegativo = False
            RaiseEvent SaldoPositivo
        End If
    End If
    
End Sub

Public Sub Levantar(Valor As Double)
    mSaldo = mSaldo - Valor
    If Not fSaldoNegativo Then
        If mSaldo < 0 Then
            fSaldoNegativo = True
            RaiseEvent SaldoNegativo
        End If
    End If

    
End Sub


' Propriedade Saldo é Read-Only
Public Property Get Saldo() As Double
    Saldo = mSaldo
End Property