Code: Select all
Sub Main()
Dim device As New IrrlichtDevice(DriverType.DIRECT3D9, New Dimension2D(1024, 768), 32, True, True, True)
device.GUIEnvironment.AddButton(New Rect(10, 210, 100, 240), Nothing, 101, "New Game")
device.GUIEnvironment.AddImage(device.VideoDriver.GetTexture("c:\logo.jpg"), New Position2D(10, 10), False, Nothing, 0, "")
While device.Run()
device.VideoDriver.BeginScene(True, True, New Color(0, 122, 65, 171))
device.SceneManager.DrawAll()
device.GUIEnvironment.DrawAll()
device.VideoDriver.EndScene()
End While
End Sub