Protected Overrides Sub OnRender(drawingContext As DrawingContext)
        MyBase.OnRender(drawingContext)
 
        Dim BrushColorProduct As New SolidColorBrush(Colors.LimeGreen)
        Dim BrushColorProductInFriction As New SolidColorBrush(Colors.OrangeRed)
        Dim tmpBrushColorProduct As SolidColorBrush
        Dim BrushColorProductFrame As New SolidColorBrush(Colors.DarkGreen)
        Dim BrushColorFrame As New SolidColorBrush(Colors.Black)
        Dim PenProductFrame As New Pen(BrushColorProductFrame, 1)
 
        Dim StartX As Single
        Dim WidthX As Single
        Dim i As Integer
        Dim rect As New Rect
 
        For i = 0 To _MaxNrOfProducts - 1
            If _ProductStream IsNot Nothing Then
                If _ProductStream(i).Valid Then
                    If _ProductStream(i).InFriction Then
                        tmpBrushColorProduct = BrushColorProductInFriction
                    Else
                        tmpBrushColorProduct = BrushColorProduct
                    End If
                    StartX = CSng((_ProductStream(i).PositionX - _ProductStream( _
                      i).Width / 2) * ScaleRealToScreen)
                    WidthX = CSng(_ProductStream(i).Width * ScaleRealToScreen)
                    rect.X = StartX
                    rect.Y = 1 + InformationWidth
                    rect.Width = WidthX
                    rect.Height = Height - 3 - 2 * InformationWidth
                    drawingContext.DrawRectangle(tmpBrushColorProduct, _
                      PenProductFrame, rect)
                End If
            End If
        Next
 
    End Sub