Attribute VB_Name = "MulModule"
Option Explicit

' Public Declarations
Public fMainForm As MainForm
Public g_lDocumentCount As Long
Public g_UserMode As Integer
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Public Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

Sub Main()
   Set fMainForm = New MainForm
   fMainForm.Show
End Sub

Public Sub DisplayLEADError(nRet As Integer)
   Dim strBuffer As String
   strBuffer = "LEAD Error: " + Str(nRet)
   MsgBox strBuffer, vbCritical, "Error!"
End Sub