Attribute VB_Name = "modGiftOrderForm" Option Explicit Sub Main() frmSplashGiftOrderForm.Show Load frmGiftOrderForm End Sub