ExplodeLASMultipoint in . Net for Arcgis 10

[francysanchez]

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
                    😄 pOutFBuf.Shape = pPoint
                    pOutFBuf.Value(lSpotInx) = pPoint.Z 😄
                    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
                    pOutFCur.InsertFeature(pOutFBuf)
                End If
            Next i

Can someone help me?

[DuncanHornby]

You need to show us the part of the code that creates pOutFBuf.