BufferVB - sindizzy/DSW GitHub Wiki

Sample code that demonstrates how to buffer a randomly generated point.

Imports DotSpatial.Geometries
Imports DotSpatial.Topology.Geometries

Private Sub button1_Click(sender As Object, e As EventArgs)
	Dim coords As New Coordinate()
	Dim rnd As New Random()
	coords = New Coordinate((rnd.NextDouble() * 360) - 180, (rnd.NextDouble() * 180) - 90)
	Dim p As New Point(coords)
	'This will get the area of the buffer.
	Dim area As Double = p.Buffer(500).Area
End Sub