' 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