VB.NET (mono) and Opengl Macos support

Imports System
Imports OpenTK.Graphics.OpenGL
 
Public Class Form1
    Public x As Integer
    Friend WithEvents GlControl2 As GLControl
 
 
    Public Sub SetupViewport()
        Dim w As Double
        Dim h As Double
        w = GlControl2.Width
        h = GlControl2.Height
        GL.MatrixMode(MatrixMode.Projection)
        GL.LoadIdentity()
        GL.Ortho(0, w, 0, h, -1, 1)
        GL.Viewport(0, 0, w, h)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
        Me.GlControl2 = New OpenTK.GLControl
        Me.Controls.Add(Me.GlControl2)
 
 
    End Sub
 
 
    Private Sub GlControl2_Load1(ByVal sender As Object, ByVal e As EventArgs) Handles GlControl2.Load
        SetupViewport()
    End Sub
 
    Private Sub GlControl2_Paint1(ByVal sender As Object, ByVal e As PaintEventArgs) Handles GlControl2.Paint
 
        GlControl2.BackColor = Color.Black
        GL.Clear(ClearBufferMask.ColorBufferBit Or ClearBufferMask.DepthBufferBit)
        GL.MatrixMode(MatrixMode.Modelview)
        GL.LoadIdentity()
        GL.Translate(x, 0, 0)
        If (GlControl2.Focused) Then
            GL.Color3(Color.Yellow)
        Else
            GL.Color3(Color.Blue)
        End If
        GL.Begin(BeginMode.Triangles)
        GL.Vertex2(10, 20)
        GL.Vertex2(100, 20)
        GL.Vertex2(100, 50)
 
        GlControl2.SwapBuffers()
        GL.End()
    End Sub
End Class