Attribute VB_Name = "Module3" Option Explicit Public Sub Main() frmSplash.Show vbModal Set g_fCAD = New frmPrincipal Set g_oConfig = New CConfig Load g_fCAD Set g_oSel = g_fCAD.sel g_fCAD.Show End Sub