Here's that file I tried to send:
Function SetUpPixelFormat:Int(hDC,multisample=0,colordepth=32)
lpPixelFormat:PIXELFORMATDESCRIPTOR=New PIXELFORMATDESCRIPTOR
lpPixelFormat.nSize=40
lpPixelFormat.nVersion=1
lpPixelFormat.dwFlags=PFD_SUPPORT_OPENGL|PFD_DOUBLEBUFFER|PFD_DRAW_TO_WINDOW
lpPixelFormat.iPixelType=PFD_TYPE_RGBA
lpPixelFormat.cColorBits=colordepth
lpPixelFormat.cRedBits=8
lpPixelFormat.cGreenBits=8
lpPixelFormat.cBlueBits=8
lpPixelFormat.cAccumBits=16
lpPixelFormat.cDepthBits=16
lpPixelFormat.cStencilBits=8
lpPixelFormat.dwLayerMask=PFD_MAIN_PLANE
If multisample
If SUPPORT_WGLCHOOSEPIXELFORMATARB
wglChoosePixelFormatARB(hDC,[WGL_DRAW_TO_WINDOW_ARB,GL_TRUE,WGL_SUPPORT_OPENGL_ARB,GL_TRUE,WGL_ACCELERATION_ARB,WGL_FULL_ACCELERATION_ARB,WGL_COLOR_BITS_ARB,24,WGL_ALPHA_BITS_ARB,8,WGL_DEPTH_BITS_ARB,16,WGL_DOUBLE_BUFFER_ARB,GL_TRUE,WGL_SAMPLE_BUFFERS_ARB,GL_TRUE,WGL_SAMPLES_ARB,multisample,0,0],[0.0,0.0],1,Varptr lPixelFormat,Varptr numFormats)
EndIf
Else
lPixelFormat=ChoosePixelFormat(hDC,lpPixelFormat)
If Not lPixelFormat Return
EndIf
result=SetPixelFormat(hDC,lPixelFormat,lpPixelFormat)
lpPixelFormat=Null
'Notify result+" = Pixel setup result"
Return result
EndFunction