lTileY = lTileY
End Sub
Public Sub GetValues(bPixelGrid As Boolean, bTileGrid As Boolean, lTileX As
 Long, lTileY As Long)
   bPixelGrid = m_bPixelGrid
   bTileGrid = m_bTileGrid
   lTileX = m_lTileX
   lTileY = m_lTileY
End Sub

Private Sub chkTileGrid_Click()
Dim bS As Boolean
   bS = (chkTileGrid.Value = Checked)
   txtWidth.Enabled = bS
   txtHeight.Enabled = bS
End Sub

Private Sub cmdCancel_Click()
   m_bCancel = True
   Unload Me
End Sub

Private Sub cmdOK_Click()
   m_bTileGrid = (chkTileGrid.Value 