Private Sub picDestination_Paint(ByVal sender As Object, _
       ByVal e As System.Windows.Forms.PaintEventArgs) _
       Handles picDestination.Paint
 
    For i As Integer = 0 To 330 Step 30
 
        Dim m As New Drawing.Drawing2D.Matrix
        m.RotateAt(i, New PointF(CSng(picDestination.Width / 2), _
            CSng(picDestination.Height / 2)))
 
        e.Graphics.Transform = m
 
        e.Graphics.DrawLine(Pens.Blue, _
        CInt(picDestination.Width / 2 + 40), CInt(picDestination.Height / 2), _
        CInt(picDestination.Width / 2), CInt(picDestination.Height / 2))
 
        e.Graphics.DrawString("Winkel " & CStr(i) & " Grad", Me.Font, _
          Brushes.Black, _
        CInt(picDestination.Width / 2 + 45), CInt(picDestination.Height / 2))
 
        m.Dispose()
   Next i
End Sub