Attribute VB_Name = "modDeclareGlobals"
' Dimension Variables - Need to be in this module to be global.
Public msgcheck As Integer  'Variable to check msgbox input
Public carntype As String
Public carnyear As String

Public hunter_points As Integer 'house points
Public oxley_points As Integer
Public sturt_points As Integer  ' we rule!
Public wentworth_points As Integer

'counter for splash only!
Public splashcount As Integer

'counter for egg
Public eggcount As Integer

'types

Type eventrecord
    name As String * 20
    type As String * 8
End Type

Type agechamp_info
    name As String * 30
    points As Integer
    events(1 To 20, 1 To 2) As String * 12
End Type

'age records variable
Type record
    name As String * 30
    event As String * 25
    td As Long
    year As String * 5
End Type

'Variables for entering events - frmevent onwards
Public agedivision As String
Public eventsex As String
Public eventname As String
Public ceventtype As String 'current events type
Public eventtype() As eventrecord
Public totalevents 'total number of events for combo
Public records As record 'age records

'important - this stops the program overwriting its data in memory
Public checkrun As Integer

'does editing functions
Dim check As agechamp_info

'does strange check for form loading
Public strangecheck As Integer

'does program location
Public helplocation As String

'public for wizard
Public wizard As Integer
Public wizardsp As Integer
Public wizard3 As Integer

'house names for whole program

Public house1name As String
Public house2name As String
Public house3name As String
Public house4name As String

'point constants
Public Const FirstPlace As Integer = 8
Public Const SecondPlace As Integer = 6
Public Const ThirdPlace As Integer = 4
Public Const FourthPlace As Integer = 2
'constants for draws
Public Const DrawnFirst As Integer = 7
Public Const DrawnSecond As Integer = 5
Public Const DrawnThird As Integer = 3
Public Const DrawnFourth As Integer = 1

'call default browser
Public Declare Function ShellExecute Lib "shell32.dll" _
      Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
      As String, ByVal lpFile As String, ByVal lpParameters As String, _
      ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'remove X button
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
