...
GL.InitNames()
...
Dim temp As Integer
temp = 1
For i As Integer = 1 To NM
                GL.PushName(temp)
                GL.Begin(BeginMode.Polygon)
                GL.Vertex3(Xstart - r, Ystart + Rad / 2, Zstart + Depth)
                GL.Vertex3(Xstart - r, Ystart - Rad / 2, Zstart + Depth)
                GL.Vertex3(Xstart, Ystart - Rad, Zstart + Depth)
                GL.Vertex3(Xstart + r, Ystart - Rad / 2, Zstart + Depth)
                GL.Vertex3(Xstart + r, Ystart + Rad / 2, Zstart + Depth)
                GL.Vertex3(Xstart, Ystart + Rad, Zstart + Depth)
                GL.End()
                GL.Begin(BeginMode.Quads)
                GL.Vertex3(Xstart - r, Ystart + Rad / 2, Zstart)
                GL.Vertex3(Xstart - r, Ystart - Rad / 2, Zstart)
                GL.Vertex3(Xstart - r, Ystart - Rad / 2, Zstart + Depth)
                GL.Vertex3(Xstart - r, Ystart + Rad / 2, Zstart + Depth)
                GL.End()
 
                GL.PopName()
                temp = temp + 1
                ...
Next i

Public Function RetrieveObjectID(x As Integer, y As Integer) As Integer
        Dim objectsFound As Integer = 0
        Dim viewportCoords(4) As Integer
 
        Dim selectBuffer(4 * CountHex) As Integer
        GL.SelectBuffer(4 * CountHex, selectBuffer)
 
        GL.GetInteger(GetPName.Viewport, viewportCoords)
        GL.MatrixMode(MatrixMode.Projection)
 
        GL.PushMatrix()
        GL.RenderMode(RenderingMode.Select)
        GL.LoadIdentity()
        Glu.PickMatrix(x, viewportCoords(3) - y, 2, 2, viewportCoords)
        Glu.Perspective(1, 3 / 1, 0.1, 10000)
        GL.MatrixMode(MatrixMode.Modelview)
 
        Call RenderScene()
 
        objectsFound = GL.RenderMode(RenderingMode.Render)
        GL.MatrixMode(MatrixMode.Projection)
        GL.PopMatrix()
 
        GL.MatrixMode(MatrixMode.Modelview)
 
        'MsgBox("Найдено под курсором:" & objectsFound)
 
        If objectsFound > 0 Then
            Dim lowestDepth As Integer
            lowestDepth = selectBuffer(1)
            Dim selectedObject As Integer
            selectedObject = selectBuffer(3)
 
            For i As Integer = 1 To objectsFound - 1
                If selectBuffer(i * 4 + 1) < lowestDepth Then
                    lowestDepth = selectBuffer(i * 4 + 1)
                    selectedObject = selectBuffer(i * 4 + 3)
                End If
            Next i
            Return selectedObject
        End If
        Return 0
    End Function