<UserControl x:Class="UserControl1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Height="300" Width="300">
    <UserControl.Resources>
 
        <RadialGradientBrush x:Key="BrushRedAn" SpreadMethod="Reflect" _
          RadiusX="132.5" RadiusY="127.5" 
			GradientOrigin="50,40" MappingMode="Absolute" Center="40,100">
            <GradientStop Color="#FFCC9494" Offset="0.108"/>
            <GradientStop Color="#FFF10F0F" Offset="1"/>
        </RadialGradientBrush>
 
        <RadialGradientBrush x:Key="BrushRedAus" SpreadMethod="Reflect" _
          RadiusX="132.5" RadiusY="127.5" 
			GradientOrigin="50,40" MappingMode="Absolute" Center="40,100">
            <GradientStop Color="#FF705050" Offset="0.108"/>
            <GradientStop Color="#FF3F0505" Offset="1"/>
        </RadialGradientBrush>
 
    </UserControl.Resources>
    <UserControl.Triggers>
    </UserControl.Triggers>
 
    <Viewbox Width="Auto" Height="Auto" Stretch="Fill">
 
		<Grid x:Name="LayoutRoot" Width="300" Height="300">
			<Ellipse Stroke="#FF000000" HorizontalAlignment="Stretch" _
  VerticalAlignment="Stretch">
				<Ellipse.Fill>
					<RadialGradientBrush>
						<GradientStop Color="#FF000000" Offset="0.93"/>
						<GradientStop Color="#FFFFFFFF" Offset="1"/>
					</RadialGradientBrush>
				</Ellipse.Fill>
			</Ellipse>
			<Ellipse x:Name="ZustandsElypse"   HorizontalAlignment="Stretch" _
  Margin="8,8,8,8" VerticalAlignment="Stretch" 
				Stroke="#FF000000" RenderTransformOrigin="0.294,0.337" 
				Fill="{DynamicResource BrushRedAn}"/>
		</Grid>
	</Viewbox>
</UserControl>

Imports System.ComponentModel
 
Class UserControl1
 
    Public Enum Zustände
        rotAn
        rotAus
    End Enum
 
 
#Region "Property => Zustand As zustände "
 
 
    Private _Zustand As New Zustände
 
    ''' <summary>
    ''' Diese Eigenschafft gibt einen Wert wieder oder legt diesen Fest.
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    <Category("Sonstiges"), DefaultValue(GetType(Zustände), "     "), _
    Description("Diese Eigenschafft gibt einen Wert wieder oder legt diesen" & _
    "Fest.")> _
      <EditorBrowsable(EditorBrowsableState.Always)> _
    <Editor()> _
    <Browsable(True)> _
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
Public Property Zustand() As Zustände
        Get
            Return _Zustand
        End Get
        Set(ByVal value As Zustände)
            _Zustand = value
        End Set
    End Property
#End Region

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.