C1Map1.TileLayer.TileSource = New VirtualEarthRoadSource()
Dim legend = New C1.Win.Map.MapLegend()
C1Map1.Legends.Add(legend)
legend.Alignment = ContentAlignment.TopRight
legend.Margin = New Padding(0, 20, 20, 0)
legend.Padding = New Padding(5)
legend.Layout = MapLegendLayout.Column
legend.Style.Border.Width = 1
legend.Title.Caption = "LEGEND"
legend.Title.Position = DockStyle.Top
legend.Title.Padding = New Padding(5)
legend.Title.Style.Alignment = ContentAlignment.MiddleCenter
legend.Title.Style.Font = New Font("Arial", 12, FontStyle.Bold)
Dim item1 = New C1.Win.Map.MapLegendItem()
legend.Items.Add(item1)
item1.Label = "Item1"
item1.Kind = MapLegendItemKind.Marker
item1.Shape = MarkerShape.Circle
item1.Style.BackColor = Color.Blue
Dim item2 = New C1.Win.Map.MapLegendItem()
legend.Items.Add(item2)
item2.Kind = MapLegendItemKind.Rectangle
item2.Label = "Item2"
item2.Size = New SizeF(20, 20)
item2.Style.Alignment = ContentAlignment.MiddleLeft