meh

Class MainWindow

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Dim rnd As New Random

        Dim scb As New SolidColorBrush
        scb.Color = Color.FromArgb(255, 0, 0, 0)

        For i = 1 To 35
            Dim meh1 As Ellipse = CenterEllipse(New Ellipse, rnd.Next(100, 256), rnd.Next(100, 256), rnd.Next(0, 800), rnd.Next(0, 800), scb, Brushes.Aqua, 2)
            Canvas1.Children.Add(meh1)
        Next

    End Sub

    Public Function CenterEllipse(ellipse As Ellipse, SizeX As Double, SizeY As Double, PosX As Double, PosY As Double, SolidBrush As SolidColorBrush, outline As Brush, thickness As Double) As Ellipse
        ellipse.Fill = SolidBrush
        ellipse.StrokeThickness = thickness
        ellipse.Stroke = outline
        ellipse.Width = SizeX
        ellipse.Height = SizeY
        Canvas.SetTop(ellipse, PosY - ellipse.Height / 2)
        Canvas.SetLeft(ellipse, PosX - ellipse.Width / 2)
        Return ellipse
    End Function

End Class