' Catch undeclared variables
    Option Explicit

    ' These constants come from the
    ' Microsoft Visual Design Guide
    Global Const BUTTONGAP = 6
    Global Const BARHEIGHT = 28

    ' Minimum size
    Global MINWIDTH!, MINHEIGHT!

    ' File name for open, save
    Global FileName$

    ' Pathname of help file
    Global HelpPath$

    ' Constants

    ' ToolButtons
    Global Const TB_FILENEW = 0
    Global Const TB_FILEOPEN = 1
    Global Const TB_FILESAVE = 2
    Global Const TB_FILEPRINT = 3
    Global Const TB_EDITCUT = 4
    Global Const TB_EDITCOPY = 5
    Global Const TB_EDITPASTE = 6
    Global Const TB_FONTBOLD = 7
    Global Const TB_FONTITALIC = 8
    Global Const TB_FONTUNDERLINE = 9
    Global Const TB_HELPCONTEXT = 10
    Global Const TB_HELPCONTENTS = 11

    Global Const TB_MAX = 11

    ' Windows Help stuff
    Declare Sub WinHelp Lib "user" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal dwData&)
    Declare Sub WinHelpString Lib "user" Alias "WinHelp" (ByVal hwnd%, ByVal hlHelpFile$, ByVal wCommand%, ByVal lpstrData$)
    Global Const HELP_CONTEXT = &H1
    Global Const HELP_QUIT = &H2
    Global Const HELP_CONTENTS = &H3
    Global Const HELP_HELPONHELP = &H4
    Global Const HELP_KEY = &H101
    Global Const HELP_PARTIALKEY = &H105

    ' Other useful API functions
    Declare Function GetModuleFileName% Lib "kernel" (ByVal hModule%, ByVal lpFilename$, ByVal nSize%)
    Declare Function GetModuleHandle% Lib "kernel" (ByVal lpModuleName$)