Dim dx_lpD3DXSprite As LPD3DXSPRITE
Dim dx_lpD3DTexture9 As LPDIRECT3DTEXTURE9
D3DXCreateTextureFromFile(dx_lpD3DDEV,"test.png",VarPtr(dx_lpD3DTexture9))
D3DXCreateSprite(dx_lpD3DDEV,VarPtr(dx_lpD3DXSprite))
dx_lpD3DXSprite->Begin(D3DXSPRITE_DONOTSAVESTATE)
dx_lpD3DXSprite->Draw(dx_lpD3DTexture9,NULL,NULL,NULL,&hFFFFFFFF)
dx_lpD3DXSprite->_End()[code]