VB OpenGL绘图

要想在VB6.0中使用OpenGL绘图，必须先下载一个SDK,名字叫vbogl.tlb。我用的版本是2.1，这个月要出3.0版本的了。
下载该文件后，直接在VB6.0“工程”-“引用”里面引用
1、在form中加入一个PictureBox控件
2、要在Windows里面使用OpenGL，必须先进行像素格式设置，函数代码如下
Dim hRC     As Long’全局变量
 
   '启用OGL
Sub EnableOpenGL(ghDC As Long)
On Error GoTo Err
Dim pfd As PIXELFORMATDESCRIPTOR                'pfd像素格式设置.
    ZeroMemory pfd, Len(pfd)
    pfd.nSize = Len(pfd)                        '大小
    pfd.nVersion = 1                            '版本
    pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER '标志
    pfd.iPixelType = PFD_TYPE_RGBA              '像素类型
    pfd.cColorBits = 24                         '颜色位数
    pfd.cDepthBits = 32                         '位宽
    pfd.iLayerType = PFD_MAIN_PLANE             '图层类型
   
    Dim PixFormat As Long
    PixFormat = ChoosePixelFormat(ghDC, pfd)    '选择设备中最匹配我们所设置的像素
    SetPixelFormat ghDC, PixFormat, pfd  &nbs