哪位老大帮帮我啊.vb+opengl 拾取时遇到byref argument type disma

wszly

刚开始用vb+opengl,做拾取的时候总是出现 byref argument type dismatch 的错误.哪位老大能帮俺看一看,不胜感激!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
源码是:
Private Sub Form_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
Const BUFSIZE = 512
Dim selectbuf(BUFSIZE) As GLuint
Dim viewport(4) As GLint

glGetIntegerv GL_VIEWPORT, viewport
glSelectBuffer BUFSIZE, selectbuf
glRenderMode GL_SELECT

glInitNames
glPushName 0

glMatrixMode GL_PROJECTION
glPushMatrix
glLoadIdentity

gluPickMatrix x, viewport(3) - y, 0.5, 0.5, viewport
gluOrtho2D 0#, 0.5, 0#, 0.5
glMatrixMode GL_PROJECTION

glPopMatrix
glFlush
End Sub

wszly

对了,忘了说了,错时出在
glGetIntegerv GL_VIEWPORT, viewport
glSelectBuffer BUFSIZE, selectbuf
这两句的viewport和selectbuf
上.

wszly

有没有人帮帮我啊.