'Benötigt wird: 1 * Line-Steuerelement, bei dem die Index-Eigenschaft auf 0 
' gesetzt ist.
 
Private Sub Form_Activate()
 
Dim Pi!, i%, Wnk!, N%, Rad%, XM%, YM%, LZ%
 
LZ = 30 'Zahl der Linien
Me.ScaleMode = 3
Me.BackColor = 0
Me.WindowState = 2
Pi = 4 * Atn(1)
XM = Me.ScaleWidth / 2
YM = Me.ScaleHeight / 2
Rad = YM * 0.9
N = 0
For i = 0 To LZ - 1
  Wnk = 2 * Pi / LZ * i
  If N > 0 Then Load Line1(N)
  With Line1(N)
  .BorderColor = Rnd * vbWhite
  .X1 = XM
  .Y1 = YM
  .X2 = XM + Rad * Sin(Wnk)
  .Y2 = YM + Rad * Cos(Wnk)
  .Visible = True
  End With
  N = N + 1
Next i
 
End Sub