bute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_bPixelGrid As Boolean
Private m_bTileGrid As Boolean
Private m_lTileX As Long
Private m_lTileY As Long
Private m_bCancel As Boolean

Public Property Get Cancelled() As Boolean
   Cancelled = m_bCancel
End Property

Public Sub SetValues(bPixelGrid As Boolean, bTileGrid As Boolean, lTileX As
 Long, lTileY As Long)
   m_bPixelGrid = bPixelGrid
   m_bTileGrid = bTileGrid
   m_lTileX = lTileX
   m_