VB Code:
' Declarations
Dim pRendertexture As Direct3DTexture8
Dim pRendersurface As Direct3DSurface8
Dim pBackbuffer As Direct3DSurface8
Dim Zbuffer As Direct3DSurface8
' ... (Code) ....
' Create texture
Set pRendertexture = d3dx.CreateTexture(device, 256, 256, 1, D3DUSAGE_RENDERTARGET, D3DFMT_A8R8G8B8, D3DPOOL_DEFAULT)
Set pRendersurface = pRendertexture.GetSurfaceLevel(0)
Set pBackbuffer = device.GetRenderTarget
Set Zbuffer = device.GetDepthStencilSurface
' ... (Code) ....
' Render to texture
device.SetRenderTarget pRendersurface, Zbuffer, ByVal 0
device.Clear 0, ByVal 0, D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, &H0, 1#, 0
device.BeginScene
Sprite.Begin
Sprite.Draw AlphaImage, ByVal 0, Scaling, Center, Rotation, Pos, &HFFFFFFFF
Sprite.End
device.EndScene
device.SetRenderTarget pBackbuffer, Zbuffer, ByVal 0
' ... (Code) ....
' Render to BackBuffer
D3DDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, cBackgroundColor, 1#, 0
D3DDevice.BeginScene
Sprite.Begin
Sprite.Draw CheckeredBackground, ByVal 0, Scaling, Center, Rotation, Pos0, &HFFFFFFFF
Sprite.Draw AlphaImage, ByVal 0, Scaling, Center, Rotation, Pos1, &HFFFFFFFF
Sprite.Draw pRendertexture, ByVal 0, Scaling, Center, Rotation, Pos2, &HFFFFFFFF
Sprite.End
D3DDevice.EndScene
D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub