Option Explicit Private Sub Main() frmDispensaryItem.Show End Sub