Graphics

    Public Shared Function CaptureControlImage(ByVal pControl As Control, Optional ByVal pstrFilename As String = "") As System.Drawing.Image<br />
        ' Returns the image contained with the referenced controls client rectangle and optionally saves it to JPEG file<br />
<br />
        Dim g As Graphics<br />
        Dim picture As PictureBox<br />
        Dim img As Image<br />
<br />
        ' Create a new PictureBox control. This is used to manipulate the captured bitmap<br />
        picture = New PictureBox<br />
        picture.Image = New Bitmap(pControl.ClientRectangle.Width, pControl.ClientRectangle.Height)<br />
<br />
        ' Create a GDI+ drawing surface based on the PictureBox control<br />
        g = Graphics.FromImage(picture.Image)<br />
<br />
        ' BitBlt the screen image at the co-ordinates representing the referenced controls client rectangle<br />
        ' into the drawing surface, which is the PictureBox control<br />
        g.CopyFromScreen(pControl.PointToScreen(New Point(pControl.ClientRectangle.X, pControl.ClientRectangle.Y)), _<br />
                          New Point(0, 0), _<br />
                          New Size(pControl.ClientRectangle.Width, pControl.ClientRectangle.Height))<br />
<br />
        ' Creates an image object from the PictureBox surface<br />
        img = picture.Image<br />
<br />
        If Not IsNothing(img) AndAlso pstrFilename <> String.Empty Then<br />
            ' Save the image to disk if required<br />
            img.Save(pstrFilename, Drawing.Imaging.ImageFormat.Jpeg)<br />
        End If<br />
<br />
        Return img<br />
    End Function<br />

<br />
Imports Tao.OpenGl<br />
Imports Tao.Platform<br />
Imports Tao.FreeGlut<br />
<br />
Public Class frmMainWin<br />
<br />
    Dim xTrans, yTrans, zTrans As Single<br />
<br />
    Private Sub frmMainWin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        myGlWindow.InitializeContexts()<br />
        myGlWindow.AutoSwapBuffers = True<br />
<br />
        'init glwindow<br />
        Gl.glClearColor(0.0F, 0.0F, 0.0F, 0.0F)<br />
<br />
        'Glu.gluLookAt(<br />
        Gl.glViewport(0, 0, 400, 300)<br />
        Gl.glMatrixMode(Gl.GL_PROJECTION)<br />
        Gl.glLoadIdentity()<br />
<br />
        Gl.glOrtho(0.0, 10.0, 0.0, 10.0, -10.0, 10.0)<br />
        Gl.glMatrixMode(Gl.GL_MODELVIEW)<br />
        Gl.glLoadIdentity()<br />
<br />
        xTrans = 0<br />
        yTrans = 0<br />
        zTrans = 0<br />
<br />
    End Sub<br />
<br />
    Private Sub myGlWindow_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles myGlWindow.Paint<br />
        Gl.glClear(Gl.GL_COLOR_BUFFER_BIT)<br />
<br />
        Gl.glColor3f(0.2F, 0.2F, 0.8F)<br />
<br />
        'Gl.glTranslatef(0.0F, 0.0F, 0.0F)<br />
        Gl.glTranslatef(xTrans, yTrans, zTrans)<br />
        Gl.glBegin(Gl.GL_TRIANGLES)     'Draw a triangle<br />
        Gl.glVertex3f(0.5F, 1.0F, 0.0F)<br />
        Gl.glVertex3f(0.0F, 0.0F, 0.0F)<br />
        Gl.glVertex3f(1.0F, 0.0F, 0.0F)<br />
        Gl.glEnd()<br />
<br />
    End Sub<br />
<br />
    Private Sub cmdUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUp.Click<br />
        'MsgBox("up")<br />
        yTrans = yTrans + 1<br />
<br />
        myGlWindow.SwapBuffers()<br />
<br />
    End Sub<br />
End Class<br />