= Checked)
   m_bPixelGrid = (chkPixelGrid.Value = Checked)
   m_lTileX = Val(txtWidth.Text)
   m_lTileY = Val(txtHeight.Text)
   Unload Me
End Sub

Private Sub Form_Load()
   chkPixelGrid.Value = Abs(m_bPixelGrid)
   chkTileGrid.Value = Abs(m_bTileGrid)
   chkTileGrid_Click
End Sub

Private Sub txtHeight_KeyPress(KeyAscii As Integer)
Dim sC As String
   sC = Chr$(KeyAscii)
   If Not IsNumeric(sC) Then
      KeyAscii = 0
   End If
End Sub

Private Sub txtWidth_KeyPress(KeyAscii As Integer)
Dim sC As String
