' Ch08ActiveXExeClient
'   This code belongs for frmDispensary.frm


Option Explicit


Private mDispensaryItems As CDispensaryItems


Private Sub cmdDispensary_Click()
    Set mDispensaryItems = Nothing
    Set mDispensaryItems = New CDispensaryItems
End Sub


Private Sub Form_Unload(Cancel As Integer)
    Set mDispensaryItems = Nothing
End Sub