VERSION 4.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   4200
   ClientLeft      =   870
   ClientTop       =   1530
   ClientWidth     =   6420
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00FFFFFF&
   Height          =   4605
   Left            =   810
   LinkTopic       =   "Form1"
   ScaleHeight     =   280
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   428
   Top             =   1185
   Width           =   6540
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim offx%                  ' x-offset zur mitte
Dim offy%                  ' y-offset zur mitte
Dim anz%                   ' anzahl sterne
Dim bahnx%(100, 180)       ' x-tab
Dim bahny%(100, 180)       ' y-tab
Dim starwi%(500)            ' anz%
Dim starba%(500)            ' anz%
Dim cosi(360)              ' cos-tab
Dim sini(360)              ' sin-tab
Dim st%
Dim wert                   ' rad in deg
Dim x%                     ' x-start
Dim y%                     ' y-start
Dim gr%                    ' groesse (radius)
Dim i%                     ' I
Dim ba%                    ' bahnenindex
Dim wi%                    ' winkelindex
Dim starbaz%               ' bahnenzaehler
Dim starwiz%               ' winkelzaehler
Dim by2%                   ' für mal 2
Dim a%

Private Sub Form_Activate()
  main
End Sub

Private Sub Form_Click()
  End
End Sub

Private Sub main()
  xoff% = scalewidth / 2 - 160
  yoff% = scaleheight / 2 - 100
  anz% = 100
  st% = 10
  wert = 3.1415 / 180
  x% = -25
  y% = 30
  gr% = 30

  For i% = 0 To 360
    sini(i%) = Sin(i% * wert)
    cosi(i%) = Cos(i% * wert)
  Next i%

  For ba% = 0 To 100
    gr% = gr% + (ba% / 20)
    x% = x% + 4 - (ba% / 40)
    y% = y% + 1
    For wi% = 0 To 180
      by2% = wi% + wi%
      bahnx%(ba%, wi%) = sini(by2%) * gr% + x% + xoff%
      bahny%(ba%, wi%) = cosi(by2%) * gr% + y% + yoff%
  '    PSet (bahnx%(ba%, wi%), bahny%(ba%, wi%)), QBColor(15)
    Next wi%
  Next ba%

  For i% = 0 To anz%
    starwi%(i%) = Rnd(Timer) * 180
    starba%(i%) = Rnd(Timer) * 20
  Next i%

  a% = 0
  Do
    For i% = 0 To anz%
      starbaz% = starba%(i%)
      starwiz% = starwi%(i%)
      PSet (bahnx%(starbaz%, starwiz%), bahny%(starbaz%, starwiz%)), 0
      starwiz% = starwiz% + 1
      starbaz% = starbaz% + 1
      If starbaz% > 100 Then
        starbaz% = 0
      End If
      If starwiz% > 180 Then
        starwiz% = 0
      End If
      PSet (bahnx%(starbaz%, starwiz%), bahny%(starbaz%, starwiz%)), QBColor(15)
      starwi%(i%) = starwiz%
      starba%(i%) = starbaz%
    Next i%
    a% = a% + 1
    If a% > 10 Then
      a% = 0
      DoEvents
    End If
  Loop
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  End
End Sub