Imports System
Imports System.Drawing
Imports OpenTK
Imports OpenTK.Graphics
Imports OpenTK.Graphics.OpenGL
Imports OpenTK.Input
 
Namespace Example
 
    Class MyApplication
 
        Dim game As GameWindow
 
        'Handler-Routinen für Game explizit deklarieren
 
        Public Sub Game_Load(sender As Object, e As EventArgs)
            ' setup settings, load textures, sounds
            game.VSync = VSyncMode.On
        End Sub
 
 
        Private Sub game_resize(sender As Object, e As EventArgs)
            GL.Viewport(0, 0, game.Width, game.Height)
        End Sub
 
 
        Private Sub Game_Update(sender As Object, e As OpenTK.FrameEventArgs)
            ' add game logic, input handling
            If game.Keyboard(Key.Escape) Then
                game.Exit()
            End If
        End Sub
 
 
        Private Sub Game_RenderFrame(sender As Object, e As EventArgs)
 
            ' render graphics
            GL.Clear((ClearBufferMask.ColorBufferBit Or _
              ClearBufferMask.DepthBufferBit))
            GL.MatrixMode(MatrixMode.Projection)
            GL.LoadIdentity()
            GL.Ortho(-1, 1, -1, 1, 0, 4)
            GL.Begin(PrimitiveType.Triangles)
            GL.Color3(Color.MidnightBlue)
            GL.Vertex2(-1.0!, 1.0!)
            GL.Color3(Color.SpringGreen)
            GL.Vertex2(0.0!, -1.0!)
            GL.Color3(Color.Ivory)
            GL.Vertex2(1.0!, 1.0!)
            GL.End()
 
            game.SwapBuffers()
        End Sub
 
 
        <STAThread()> _
        Public Sub Main()
 
            game = New GameWindow
 
            'Handler-Routinen den Game-Events zuordnen
            AddHandler game.Load, AddressOf Game_Load
            AddHandler game.Resize, AddressOf game_resize
            AddHandler game.UpdateFrame, AddressOf Game_Update
            AddHandler game.RenderFrame, AddressOf Game_RenderFrame
 
            game.Run(60)
        End Sub
    End Class
End Namespace