VbzCart/docs/archive/code/VBA/clsPkgCount

<VB> ' CLASS: clsPkgCount

Option Compare Database Option Explicit

Public Checked As Long Public Unchecked As Long Public PulledPkg As Long ' pulled packages (merch to be shipped) Public PulledMsg As Long ' pulled messages (no merch; ok to send even if pulled) Public Sub Clear()

   Me.Checked = 0
   Me.Unchecked = 0
   Me.PulledPkg = 0
   Me.PulledMsg = 0

End Sub Public Sub IncChecked()

   Me.Checked = Me.Checked + 1

End Sub Public Sub IncUnchecked()

   Me.Unchecked = Me.Unchecked + 1

End Sub Public Sub IncPulledPkg()

   Me.PulledPkg = Me.PulledPkg + 1

End Sub Public Sub IncPulledMsg()

   Me.PulledMsg = Me.PulledMsg + 1

End Sub </VB>