MpsVB - sindizzy/DSW GitHub Wiki

Sample that demonstrates how to create a multipoint from randomly generated coordinates

Imports DotSpatial.Geometries
Imports DotSpatial.Topology.Geometries

Private Sub button1_Click(sender As Object, e As EventArgs)
	Dim c As Coordinate() = New Coordinate(35) {}
	Dim rnd As New Random()
	For i As Integer = 0 To 35
		c(i) = New Coordinate((rnd.NextDouble() + 360) - 180, (rnd.NextDouble() * 180) - 90)
	Next
	Dim Mps As New MultiPoint(c)
End Sub