I see it too. It seems like ClearRect doesn't work properly with the clipped regions.
The workaround will be to paint the background to the canvas instead.
Sub ClearRegoin(cnvs As Canvas,Region As List)
cnvs.ClipPath(Region)
' cnvs.ClearRect(0,0,cnvs.Width,cnvs.Height)
Dim p As Paint = fx.Colors.Transparent
cnvs.DrawRect(0,0,cnvs.Width,cnvs.Height,p,True,1)
cnvs.RemoveClip
End Sub