modstartup.bas

来自「Visual Basic 6 大学教程的代码」· BAS 代码 · 共 16 行

Attribute VB_Name = "modStartup"
' Standard module used as Startup object
' Module modStartup
Option Explicit
Public mChecker As CSpellCheckerEXE

Public Sub Main()

   If App.StartMode = vbSModeStandalone Then
      Call frmCheck.Show
   Else   ' vbSModeAutomation
      Set mChecker = New CSpellCheckerEXE
   End If
   
End Sub