Imports Grasshopper.Kernel
Imports Grasshopper.Kernel.Types
Public Class MyFirstComponent
    Inherits GH_Component
    Public Sub New()
        MyBase.New("MyFirst", "MFC", "My first component", "Extra", "Simple")
    End Sub
    Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_Component.GH_InputParamManager)
        pManager.Register_MeshParam("Mesh", "meshObject", "Mesh To Export", GH_ParamAccess.list)
    End Sub

    Protected Overrides Sub RegisterOutputParams(ByVal pManager As GH_Component.GH_OutputParamManager)
        pManager.Register_IntegerParam("Count", "C", "Count")
    End Sub

    Protected Overrides Sub SolveInstance(ByVal DA As IGH_DataAccess)
        Dim meshObject As New List(Of Rhino.Geometry.Mesh)
        If (Not DA.GetDataList(0, meshObject)) Then Return
        DA.SetData(0, New GH_Number(meshObject.Count))
    End Sub

    Public Overrides ReadOnly Property ComponentGuid() As System.Guid
        Get
            ComponentGuid = New System.Guid("{7DB4B08F-4824-4e4a-9110-457061EB9579}")
        End Get
    End Property
End Class