OpenGL-App in bei UserControl-Initialisierung

  • VB.NET

    OpenGL-App in bei UserControl-Initialisierung

    Hi Leute,
    ich gestalte ein User Control (mit VS Express 2008), in dem OpenGL-Grafiken angezeigt werden.Klappt soweit ganz gut, nur möchte ich dass das Control beim initialisieren schon was anzeigt, zum Beispiel nur nen Hintergrund.
    Der Code funktioniert bestens wenn man ihn in einer Sub aufruft, aber auf den Load()-Event hin sieht man nichts.Der Hintergrund wird rot definiert, das sieht man aber erst beim nächsten OpenGL-Funktionsaufruf.

    Private Sub Control_initialized(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Me.Load

    Gl.glClear(Gl.GL_COLOR_BUFFER_BIT)
    hDC = User.GetDC(Me.Handle)
    EnableOpenGL(hDC)
    Gl.glPushMatrix()
    Gl.glClearColor(1, 0, 0, 0) 'roter Hintergrund
    Gl.glPopMatrix()
    Gl.glFlush()
    Gdi.SwapBuffers(hDC)

    MyBase.Show()

    End Sub

    Ich habe auch versucht den Code als Sub aufzurufen, indem ich im Designer den Aufruf eingefügt habe.

    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
    .....
    Me.Name = "OGLDisplay"
    Me.Size = New System.Drawing.Size(392, 612)
    Me.ResumeLayout(False)
    Me.MeineStartSub()
    .....

    Klappt auch nicht. Weiss jemand Rat ?

    Grüsse
    Georges