Thank you all!

About my post #37 it works!

(another useful thing): To change RenderTarget: (...)
Code:
Private Sub SetupRenderTarget()
        m_cDevice.CreateRenderTarget m_WW, m_HH, D3DFMT_A8R8G8B8, D3DMULTISAMPLE_NONE, ByVal 0&, ByVal 0&, srfBuff
        m_cDevice.CreateTexture m_WW, m_HH, 1, D3DUSAGE_RENDERTARGET, D3DFMT_A8R8G8B8, D3DPOOL_DEFAULT, texBuff
        Set srfBuff = texBuff.GetSurfaceLevel(0)
        m_cDevice.SetRenderTarget 0, srfBuff
End Sub