لا يخرج ناتج بعد تطبيق درس Irrlicht

Imports Irrlicht.Core
Imports Irrlicht.Scene
Imports Irrlicht.Video

Module Module1

Sub Main()
Dim device As IrrlichtDevice
device = New IrrlichtDevice(DriverType.DIRECT3D9)
device.WindowCaption = "First Test"

Dim driver As IVideoDriver = device.VideoDriver

Dim smgr As ISceneManager = device.SceneManager
Dim box As ISceneNode = smgr.AddCubeSceneNode(10, Nothing, _
-1, New Vector3D(10, 5, 40))
Dim mat As ITexture = driver.GetTexture("1.jpg")
box.SetMaterialTexture(0, mat)
box.SetMaterialFlag(MaterialFlag.LIGHTING, False)
smgr.AddCameraSceneNodeFPS()
device.CursorControl.Visible = False

While device.Run
driver.BeginScene(True, False, New Color(255, 100, 100, 100))
driver.EndScene()
End While


End Sub

End Module

Imports Irrlicht