Private mRandom As New Random(Date.Now.Millisecond)
    Private mTranslates() As TranslateTransform
 
    Private Sub Window_Loaded(sender As System.Object, e As _
      System.Windows.RoutedEventArgs) Handles MyBase.Loaded
 
        Dim lst As New List(Of TranslateTransform)
        For i As Integer = 0 To 499
            Dim rect As New Shapes.Rectangle
            rect.Margin = New Thickness(200, 200, 0, 0)
            rect.HorizontalAlignment = Windows.HorizontalAlignment.Left
            rect.VerticalAlignment = Windows.VerticalAlignment.Top
            rect.Stroke = Brushes.Black
            rect.Fill = Brushes.Red
            rect.StrokeThickness = 0.5
            rect.Height = 5
            rect.Width = 8
            Dim translate = New TranslateTransform
            rect.RenderTransform = translate
            lst.Add(translate)
            Canvas1.Children.Add(rect)
        Next
        mTranslates = lst.ToArray
 
    End Sub
 
    Private WithEvents mTimer As New System.Windows.Forms.Timer With {.Interval _
      = 50}
 
    Private Sub Button1_Click(sender As System.Object, e As _
      System.Windows.RoutedEventArgs) Handles Button1.Click
        If Not mTimer.Enabled Then
            mTimer.Start()
        Else
            mTimer.Stop()
        End If
    End Sub
 
    Private Sub mTimer_Tick(sender As Object, e As EventArgs) Handles _
      mTimer.Tick
        For Each translate In mTranslates
            translate.X += mRandom.Next(-4, 4)
            translate.Y += mRandom.Next(-4, 4)
        Next
    End Sub