mesh problems

Hi...

I'm try to get outlines from brep, using mesh and plane.

When I use Mesh component in Grasshopper, it works well and correct,

but VB component as below, it does not worked well.

----

Private Sub RunScript(ByVal x As Brep, ByVal y As Plane, ByRef A As Object)    

Dim ms As mesh()    

Dim mp As rhino.Geometry.MeshingParameters        

mp = rhino.Geometry.MeshingParameters.Default    

mp.Tolerance = 0.001    

mp.JaggedSeams = False    

mp.RelativeTolerance = 0.001    

ms = rhino.Geometry.Mesh.CreateFromBrep(x, mp)

a = ms(0).GetOutlines(y)  

End Sub