Sample code for creating a new point

Imports DotSpatial.Geometries
Imports DotSpatial.Common

Private Sub btnCoord_Click(sender As Object, e As EventArgs)
			'creates a new coordinate 
			Dim c As New Coordinate(2.4, 2.4)
			'passes the coordinate to a new point
			Dim p As New Point(c)
			'displayes the new point's x and y coordiantes
			MessageBox.Show(("Point p is: x= " + p.X & " & y= ") + p.Y)
		End Sub

Last edited Jul 13, 2010 at 2:33 PM by AlamoMan, version 3