Attribute VB_Name = "Module1" Public fMainForm As frmMain Sub Main() Set fMainForm = New frmMain fMainForm.Show End Sub