ExplodeLASMultipoint in . Net for Arcgis 10

Discussion created by franmasan on Nov 15, 2013
Latest reply on Nov 18, 2013 by Hornbydd
Good Night,
I actualized the script (for a final project of my class LIDAR) ExplodeLASMultipoint for Visual Studio 2010 .Net and now I have an error in the lines with smiles:

For i = 0 To pPC.PointCount - 1
                pPC.QueryPoint(i, pPoint)
                Dim X As Double
                X = pPoint.X
                Dim Y As Double
                Y = pPoint.Y
                If (X >= pEnv.XMin) And (X <= pEnv.XMax) And (Y >= pEnv.YMin) And (Y <= pEnv.YMax) Then
                    :D pOutFBuf.Shape = pPoint
                    pOutFBuf.Value(lSpotInx) = pPoint.Z :D
                    If (bHasBlobFields) Then
                        For j = 0 To pOutFieldInx.Count - 1
                            pBlob = pBlobs.Element(j)
                            pOutFBuf.Value(pOutFieldInx.Element(j)) = pBlob.GetValue(pPoint.ID)
                        Next j
                    End If
                End If
            Next i

Can someone help me?