Attribute VB_Name = "Module1"
Public Const BoxSize = 10
Public Const Map_Long = 40
Public Const Map_Width = 20
Public Const EmptyPlace = 1
Public Const NotEmptyPlace = 3
Public MAP(Map_Long - 1, Map_Width) As Integer
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 hsourceDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, ByVal dwRop As Long) As Long