WPF

class MyObject
{
    int x,y,z;
    string name;

    EventHandler event;
    ..etc...
}

Pen pen = new Pen(Brushes.Red, 5);
Random random = new Random();

DrawingVisual visual = new DrawingVisual();
using (DrawingContext dc = visual.RenderOpen())
{
    for (int i = 0; i < 10000; i++)
    {
        Point p1 = new Point(random.Next(0, 5000), random.Next(0, 5000));
        Point p2 = new Point(random.Next(0, 100), random.Next(0, 100));
        dc.DrawLine(pen, p1, new Point(p1.X - p2.X, p1.Y - p2.Y));
    }
    dc.Close();
}
MyCanvas.AddVisual(visual);

using System.Collections.Generic;
using System.Windows.Controls;
using System.Windows.Media;

namespace WpfApplication1
{
    public class DrawingCanvas : Canvas
    {
        private List<visual> _visuals = new List<visual>();

        protected override int VisualChildrenCount
        {
            get
            {
                return _visuals.Count;
            }
        }

        protected override Visual GetVisualChild(int index)
        {
            return _visuals[index];
        }

        public void AddVisual(Visual visual)
        {
            _visuals.Add(visual);
            base.AddVisualChild(visual);
            base.AddLogicalChild(visual);
        }
    }
}
</visual></visual>

<Canvas x:Name="LayoutRoot"...
    <StackPanel...
       <Rectangle...
          <StackPanel...
             <Image...

Imports System.Math
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports System.Drawing.Text

Public Class Form1

#Const DEBUG = 0

    Private Filter As Region
    Dim Images(5) As TextureBrush
    Private ndx As Integer = 0
    Dim Toggle As Integer = 0

#If Debug = 1 Then
    Dim cnt As Integer
#End If

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Images(0) = New TextureBrush(My.Resources.Image1)
        Images(1) = New TextureBrush(My.Resources.Image2)
        Images(2) = New TextureBrush(My.Resources.Image3)
        Images(3) = New TextureBrush(My.Resources.Image4)
        Images(4) = New TextureBrush(My.Resources.Image5)
        Images(5) = New TextureBrush(My.Resources.Image6)

        ' Prep a Stripped-View Filter.
        Filter = New Region(New Rectangle(0, 0, 1930, 1080))
        Using pa As New GraphicsPath()
            For iTop As Integer = 0 To Me.Height Step 3
                pa.AddRectangle(New Rectangle(0, iTop, 1930, 2))
            Next
            Filter.Exclude(pa)
        End Using

    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

        ' Draw Base image
        e.Graphics.FillRectangle(Images(GetPtr(0)), New Rectangle(0, 0, 1920, 1080))

        ' Draw interlaced images
        For i = 1 To 2
            e.Graphics.TranslateTransform(0, i)
            e.Graphics.FillRegion(Images(GetPtr(i)), Filter)
            'e.Graphics.FillRegion(Images(GetPtr(0)), Filter)
        Next

        ' Toggle Logo Postion - From middle to sides and back
        Toggle = Toggle Xor 1

        ' Pass painting back to caller
        MyBase.OnPaint(e)

        ' Reposition count so that each AD image appears RHS > Middle > LHS
        If Toggle Then PrevNdx() Else NextNdx()

    End Sub

    Private Function NextNdx() As Integer
        ndx += 1
        If ndx > Images.Length - 1 Then ndx = 1
        Return ndx
    End Function

    Private Function PrevNdx() As Integer
        ndx -= 1
        If ndx < 1 Then ndx = Images.Length - 1
        Return ndx
    End Function

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Invalidate()
    End Sub

End Class