New Post: Noob question: how to retrieve X Y from pointshape

 Dim fs As New FeatureSet
            fs = CType(FeatureSet.Open(Form1.AdressenPADNAAMtext.Text), FeatureSet)
            fs.FillAttributes()
            fs.Projection = Form1.myVenster.Projection
            Dim dt As DataTable = fs.DataTable

            For AdresRij = 0 To fs.Features.Count - 1
                AdresX = CStr(fs.Features.Item(AdresRij).Coordinates.Item(0).X)
                AdresY = CStr(fs.Features.Item(AdresRij).Coordinates.Item(0).Y)