Option Explicit

Dim Regensetzen As Boolean

Private Type Regen
  x As Long
  y As Long
  Geschw As Single
End Type

Dim Regen(1000) As Regen
Dim Regenlänge As Integer
Dim RegenSpeed As Integer
Dim RegenAnzahl As Integer
Dim Eigenschaft As Single

Function Regnen(Anzahl As Integer, Geschwindigkeit As Integer)
  Dim x As Integer
  Dim y As Integer
  Dim z As Integer
  Dim I As Integer
  Dim x2 As Long

  If Regensetzen = False Then
    Randomize
    For I = 0 To Anzahl
      x = Rnd * 800
      y = Rnd * 600
      z = Rnd * Geschwindigkeit

      Regen(I).x = x
      Regen(I).y = y
      Regen(I).Geschw = z + Geschwindigkeit
      BackBuffer.SetForeColor vbWhite
      BackBuffer.DrawLine Regen(I).x, Regen(I).y, Regen(I).x, _
            Regen(I).y + Regenlänge
    Next I
    Regensetzen = True
  End If

  For I = 0 To Anzahl
    Regen(I).y = Regen(I).y + Regen(I).Geschw
    BackBuffer.DrawLine Regen(I).x, Regen(I).y, Regen(I).x, _
          Regen(I).y + Regenlänge
    If Regen(I).y > 600 Then
      x = Rnd * 800
      y = Rnd * 600
      z = Rnd * Geschwindigkeit

      Regen(I).x = x
      Regen(I).y = 0
      Regen(I).Geschw = z + Geschwindigkeit
      BackBuffer.DrawLine Regen(I).x, Regen(I).y, Regen(I).x, _
            Regen(I).y + Regenlänge
    End If
  Next I
End Function