Private Sub cmdFill_Click()
Dim Y As Long
Dim X As Long

X = MsgBox("Are you sure you want to fill the map?", vbYesNo)
If X = vbNo Then
    Exit Sub
End If

If optAttribs.Value = False Then
    For Y = 0 To MAX_MAPY
        For X = 0 To MAX_MAPX
            With Map.Tile(X, Y)
                If optGround.Value = True Then .Ground = EditorTileY * 14 + EditorTileX
                If optMask.Value = True Then .Mask = EditorTileY * 14 + EditorTileX
                If optAnim.Value = True Then .Anim = EditorTileY * 14 + EditorTileX
                If optMask2.Value = True Then .Mask2 = EditorTileY * 14 + EditorTileX
                If optM2Anim.Value = True Then .M2Anim = EditorTileY * 14 + EditorTileX
                If optFringe.Value = True Then .Fringe = EditorTileY * 14 + EditorTileX
                If optFAnim.Value = True Then .FAnim = EditorTileY * 14 + EditorTileX
                If optFringe2.Value = True Then .Fringe2 = EditorTileY * 14 + EditorTileX
                If optF2Anim.Value = True Then .F2Anim = EditorTileY * 14 + EditorTileX
            End With
        Next X
    Next Y
Else
        For Y = 0 To MAX_MAPY
            For X = 0 To MAX_MAPX
                With Map.Tile(X, Y)
                  If frmMirage.optBlocked.Value = True Then .Type = TILE_TYPE_BLOCKED
                  If frmMirage.optWarp.Value = True Then .Type = TILE_TYPE_WARP
                  If frmMirage.optKill.Value = True Then .Type = TILE_TYPE_KILL
                  If frmMirage.optItem.Value = True Then .Type = TILE_TYPE_ITEM
                  If frmMirage.optHeal.Value = True Then .Type = TILE_TYPE_HEAL
                  If frmMirage.optNpcAvoid.Value = True Then .Type = TILE_TYPE_NPCAVOID
                  If frmMirage.optKey.Value = True Then .Type = TILE_TYPE_KEY
                  If frmMirage.optKeyOpen.Value = True Then .Type = TILE_TYPE_KEYOPEN
            End With
        Next X
    Next Y
End If
End Sub

Private Sub cmdClear_Click()
If optAttribs.Value = False Then
    Call EditorClearLayer
    Else
    Call EditorClearAttribs
  End If
End Sub