' This code example is taken from the
' Direct3D Mobile Texture Sample of the
' .NET Compact Framework Samples in the
' .NET Framework SDK
' Called whenever the rendering device is reset
Sub OnResetDevice(ByVal sender As Object, ByVal e As EventArgs)
Dim dev As Device = CType(sender, Device)
' Turn off culling, so we see the front and back of the triangle.
dev.RenderState.CullMode = Cull.None
' Turn off D3D lighting.
dev.RenderState.Lighting = False
' Turn on the ZBuffer.
dev.RenderState.ZBufferEnable = True
' Turn on perspective correction for textures.
' This provides a more accurate visual at the cost
' of a small performance overhead.
dev.RenderState.TexturePerspective = True
' Now create the texture.
texture = TextureLoader.FromStream(dev, _
[Assembly].GetExecutingAssembly().GetManifestResourceStream("Texture.Content.Banana.bmp"))
End Sub