The 3D grid

Im trying to create a 3d grid but unfortunately I haven't found the brain power to pull it off yet.

Each grid square needs the capability of being hidden/deleted/removed.

Im not sure how I would create a 1000x1000 grid with each square being independently removable.

Any Ideas?

Here's my start, there's not much to it.

Graphics3D 400,400,16,2

SetBuffer BackBuffer()


;;;;Grid Array//Determines how many squares in the grid
Dim mapgrid(1000,1000)
;;;;The size of each square
Global gridindex = 20




cam1 = CreateCamera()
CameraViewport cam1,0,0,400,400
light1 = CreateLight()




;;;CreateGrid Function
CreateGrid()

While Not KeyHit(1)


UpdateWorld 
RenderWorld

FPS()

Flip
Cls


Wend


;;;;;;Creates a map mesh grid
Function CreateGrid()

shroud = CreateMesh()

   s = CreateSurface(shroud)
	AddVertex s,-10,+10,+100:AddVertex s,+10,+10,+100
	AddVertex s,-10,-10,+100:AddVertex s,+10,-10,+100
	AddTriangle s,0,1,2:AddTriangle s,2,1,3


End Function


;;;;;;//FPS
Global fpstime,fpscount,fps
Function FPS()
fpscount=fpscount+1
If MilliSecs()>fpstime Then 
    fpstime=MilliSecs()+1000
    fps=fpscount
    fpscount=0
EndIf 
Text 10,0,"FPS: "+fps
End Function
;;;;;\\FPS