Private Sub StartEngine(ByVal c)
        ' Variablen deklarieren und definieren
        Dim device As IrrlichtDevice
        Dim cam As ICameraSceneNode
        Dim anim As ISceneNodeAnimator
        Dim cube As ISceneNode
        ' Starte Irrlicht
        device = New IrrlichtDevice(Irrlicht.Video.DriverType.DIRECT3D8, New Dimension2D(c.Width, c.Height), 32, False, False, False, True, c.Handle)
        cam = device.SceneManager.AddCameraSceneNode(Nothing, New Vector3D, New Vector3D, -1)
        anim = device.SceneManager.CreateFlyCircleAnimator(New Vector3D(0, 0, 0), 30.0F, 0)
        cam.AddAnimator(anim)
        cube = device.SceneManager.AddTestSceneNode(32.5, Nothing, -1, New Vector3D)
        cube.SetMaterialTexture(0, device.VideoDriver.GetTexture("media/1.png"))
        While device.Run And c.Enabled
            device.VideoDriver.BeginScene(True, True, New Irrlicht.Video.Color(0, 0, 0, 0))
            device.SceneManager.DrawAll()
            device.GUIEnvironment.DrawAll()
            device.VideoDriver.EndScene()
        End While
    End Sub

StartEngine(picVorschau)