Dim Layer As GraphicsLayer
Dim g As Graphic
Dim l As Polyline
Dim s As SimpleLineSymbol
Dim SRTo As SpatialReference
Dim e As Envelope
e.Initialize3(280586.2987, 5431792.8644, 719413.7013, 6655205.4835)
SRTo.Initialize(2957)
Layer.Initialize3(SRTo,e)
l.Initialize
l.startPath2(280596.2987,5431892.8644)
l.lineTo2(719313.7013,6655105.4835)
s.Initialize(Colors.RED, 10)
g.Initialize(l, s)
Layer.addGraphic(g)
MapView1.addLayer1(Layer)
MapView1.AllowRotationByPinch = True
MapView1.enableWrapAround(True)