Attribute VB_Name = "modPuzzle"
Option Explicit

Public Enum PictureConstants
    WOODY = 0
    POPEYE
End Enum

Public Enum MovementConstants
    NONE = -1
    RIGHTWARD
    DOWNWARD
    LEFTWARD
    UPWARD
End Enum

Public Enum OrientationConstants
    HORIZONTAL = 0
    VERTICAL
End Enum

Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Const PROMPT                 As String = "Congratulations! you have solved the puzzle."
Public Const EMPTY_STRING           As String = ""
Public Const HIGH_BYTE              As Byte = 255
Public Const RES_BASE               As Integer = 100
Public Const RESID_MOULDING         As Integer = 102
Public Const IMAGE_WIDTH            As Integer = 440
Public Const IMAGE_HEIGHT           As Integer = 330
Public Const IMAGE_TOP              As Integer = 129
Public Const IMAGE_LEFT             As Integer = 25
Public Const MOULDING_SIZE          As Integer = 17
Public Const INITIAL_COLSIZE        As Integer = 4
Public Const INITIAL_ROWSIZE        As Integer = 4

Public puzzle                       As clsPuzzle

Public Sub main()
    frmMain.Show
End Sub
