Public Class KmlLayer 
   Inherits ESRI.ArcGIS.Client.GroupLayer
   Implements ESRI.ArcGIS.Client.ILegendSupport 

public class KmlLayer : ESRI.ArcGIS.Client.GroupLayer, ESRI.ArcGIS.Client.ILegendSupport  

<Grid x:Name="LayoutRoot">
            
  <!-- Add a Map Control. Zoom to the Central Europe/Mediterranean area. -->
  <esri:Map Background="White" HorizontalAlignment="Left" Margin="0,171,0,0" Name="Map1" VerticalAlignment="Top" 
            WrapAround="True" Height="419" Width="405" Extent="-692043,2479159,4226170,7567385">
    <esri:Map.Layers>
      <esri:LayerCollection>
                  
        <!-- Add a background ArcGISTiledMapServiceLayer for visual reference. -->
        <esri:ArcGISTiledMapServiceLayer 
          Url="http://services.arcgisonline.com/ArcGIS/rest/services/World_Street_Map/MapServer" />
          
        <!-- Add a KmlLayer that shows Earthquake occurrences over the last 7 days. Need to use a ProxyUrl. -->
        <esri:KmlLayer ID="Earth Quakes" 
                       Url="http://earthquake.usgs.gov/earthquakes/catalogs/eqs7day-age_src.kmz"
                       ProxyUrl="http://servicesbeta3.esri.com/SilverlightDemos/ProxyPage/proxy.ashx">
        </esri:KmlLayer>
        
      </esri:LayerCollection>
    </esri:Map.Layers>
  </esri:Map>
      
  <!-- Add a Legend Control to show the symbology of the Layers in the Map. -->
  <esri:Legend HorizontalAlignment="Left" Margin="403,171,0,0" Name="Legend1" VerticalAlignment="Top" 
               Height="419" Width="237" Map="{Binding ElementName=Map1}" 
               ShowOnlyVisibleLayers="True" LayerItemsMode="Tree" />
        
  <!-- Add a button that has the Click event wired up. The button will add another KmlLayer via the code-behind. -->
  <Button Content="Add KmlLayer 'Volcanoes of the World' to the Map." Height="23" HorizontalAlignment="Left" 
          Margin="0,144,0,0" Name="Button1" VerticalAlignment="Top" Width="640" Click="Button1_Click"/>
  
  <!-- Provide the instructions on how to use the sample code. -->
  <TextBlock Height="138" HorizontalAlignment="Left" Name="TextBlock1" VerticalAlignment="Top" Width="640" 
     TextWrapping="Wrap" Text="When the Map initially loads a KmlLayer (Earth Quakes in the last 7 days) will 
             be added that was defined in XAML. Click the button to add another KmlLayer (Volcanoes of the World)
             using code-behind logic." />
  
</Grid>

private void Button1_Click(object sender, System.Windows.RoutedEventArgs e)
{
  // Add another KmlLayer to the Map.
  
  // Create a new KmlLayer object. 
  ESRI.ArcGIS.Client.Toolkit.DataSources.KmlLayer theKmlLayer = new ESRI.ArcGIS.Client.Toolkit.DataSources.KmlLayer();
  
  // Set the KmlLayer's ID.
  theKmlLayer.ID = "Volcanoes of the world";
  
  // Set the Url of the KmlLayer. Note the Url takes a Uri object!
  theKmlLayer.Url = new Uri("http://sites.google.com/site/geined13/tours/Volcanoes_of_the_World.kmz?attredirects=0&d=1");
  
  // Need to use a ProxyUrl on the KmlLayer since the service is not hosted locally or on a local network.
  theKmlLayer.ProxyUrl = "http://servicesbeta3.esri.com/SilverlightDemos/ProxyPage/proxy.ashx";
  
  // Add the KmlLayer to the Map. An automaic refresh of the Map and Legend Controls will occur.
  Map1.Layers.Add(theKmlLayer);
}

Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
  
  ' Add another KmlLayer to the Map.
  
  ' Create a new KmlLayer object. 
  Dim theKmlLayer As New ESRI.ArcGIS.Client.Toolkit.DataSources.KmlLayer
  
  ' Set the KmlLayer's ID.
  theKmlLayer.ID = "Volcanoes of the world"
  
  ' Set the Url of the KmlLayer. Note the Url takes a Uri object!
  theKmlLayer.Url = New Uri("http://sites.google.com/site/geined13/tours/Volcanoes_of_the_World.kmz?attredirects=0&d=1")
  
  ' Need to use a ProxyUrl on the KmlLayer since the service is not hosted locally or on a local network.
  theKmlLayer.ProxyUrl = "http://servicesbeta3.esri.com/SilverlightDemos/ProxyPage/proxy.ashx"
  
  ' Add the KmlLayer to the Map. An automaic refresh of the Map and Legend Controls will occur.
  Map1.Layers.Add(theKmlLayer)
  
End Sub