Imports System.Drawing.Drawing2D
Public Class Form1
    Private rnd As New Random
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.Size = New Size(800, 600)
        Me.BackColor = Color.Black
    End Sub
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles _
      Me.Paint
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        Dim pt As Point
        Using m As New Matrix, p As New Pen(Brushes.GreenYellow, 3)
            For i As Int32 = 1 To 50
                pt = New Point(rnd.Next(Width), rnd.Next(Height))
                m.RotateAt(rnd.Next(0, 90), pt)
                e.Graphics.Transform = m
                e.Graphics.DrawLine(p, pt, New Point(pt.X + 100, pt.Y))
                e.Graphics.FillEllipse(Brushes.White, pt.X - 3, pt.Y - 3, 6, 6)
                e.Graphics.DrawString("Dein Text", Me.Font, Brushes.White, pt)
                m.Reset()
            Next
        End Using
    End Sub
End Class