次のサンプル コードは、Direct3DDevice8.GetDepthStencilSurface メソッドを使用して、デバイスが所有する深度バッファ サーフェスを取得する方法を示している。
Dim ZBuffer As Direct3DSurface8 Set ZBuffer = d3dDevice.GetDepthStencilSurface