Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gDocumentCount As Integer
Public nXBorder As Integer
Public nYBorder As Integer

Public Const TOOL_BRUSH = 0
Public Const TOOL_SHAPE_LINE = 1
Public Const TOOL_SHAPE_RECT = 2
Public Const TOOL_SHAPE_ROUNDRECT = 3
Public Const TOOL_SHAPE_ELLIPSE = 4
Public Const TOOL_SHAPE_POLYGON = 5
Public Const TOOL_REGION_RECT = 6
Public Const TOOL_REGION_ROUNDRECT = 7
Public Const TOOL_REGION_ELLIPSE = 8
Public Const TOOL_REGION_POLYGON = 9
Public Const TOOL_REGION_SURFACE = 10
Public Const TOOL_REGION_BORDER = 11
Public Const TOOL_REGION_COLOR = 12
Public Const TOOL_FILL_SURFACE = 13
Public Const TOOL_FILL_BORDER = 14
Public Const TOOL_FILL_COLORREPLACE = 15
Public Const TOOL_TEXT = 16

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