Dim geos As New List(Of Path)
 
        Dim lstDefs As New List(Of ProvinceMapDefinition)( _
          GameData.MapDefinitions)
        Dim pathGeo As New PathGeometry
 
        For Each ppg As ProvincePixelGroup In mPixelGroups
            Dim myPath As New Path
            myPath.Stroke = New SolidColorBrush(Color.FromRgb(ppg.Color(2), _
              ppg.Color(1), ppg.Color(0)))
            myPath.StrokeThickness = 2
 
            Dim geo As New StreamGeometry
            geo.FillRule = FillRule.Nonzero
 
            Using ctx = geo.Open()
                ctx.BeginFigure(ppg.Positions(0), True, True)
                ctx.PolyLineTo(ppg.Positions, True, True)
            End Using
 
            geo.Freeze()
 
            myPath.Data = geo
 
            For Each prov In lstDefs
                If prov.Color.R = ppg.Color(2) And prov.Color.G = ppg.Color(1) _
                  And prov.Color.B = ppg.Color(0) Then
                    myPath.DataContext = prov
                    lstDefs.Remove(prov)
                    Exit For
                End If
            Next
            AddHandler myPath.MouseEnter, AddressOf Me.path_MouseEnter
            AddHandler myPath.MouseLeave, AddressOf Me.path_MouseLeave
 
            drawTable.Children.Add(myPath)
        Next