modstartup.bas

Visual Basic 6 大学教程的代码

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