VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   Caption         =   "Form1"
   ClientHeight    =   3645
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5100
   LinkTopic       =   "Form1"
   ScaleHeight     =   3645
   ScaleWidth      =   5100
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer3 
      Interval        =   1
      Left            =   3480
      Top             =   480
   End
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   2880
      Top             =   480
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   2280
      Top             =   480
   End
   Begin VB.Line Drop3 
      BorderColor     =   &H00808080&
      Index           =   0
      X1              =   480
      X2              =   480
      Y1              =   240
      Y2              =   360
   End
   Begin VB.Line Drop2 
      BorderColor     =   &H00C0C0C0&
      Index           =   0
      Visible         =   0   'False
      X1              =   360
      X2              =   360
      Y1              =   240
      Y2              =   360
   End
   Begin VB.Line Drop1 
      BorderColor     =   &H00FFFFFF&
      Index           =   0
      Visible         =   0   'False
      X1              =   240
      X2              =   240
      Y1              =   240
      Y2              =   360
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
    Dim X1 As Integer
    Dim Y1 As Integer
    Dim Y2 As Integer
    Dim i As Integer

Private Sub Form_Load()
    
For i = 1 To 100
Randomize
    X1 = Int((Form1.ScaleWidth * Rnd) + 1)
    Y1 = Int((Form1.ScaleHeight * Rnd) + 1)
    Y2 = Y1 + 75

    Load Drop1(Drop1.Count)
    Drop1(Drop1.UBound).X1 = X1
    Drop1(Drop1.UBound).X2 = X1
    Drop1(Drop1.UBound).Y1 = Val(Y1)
    Drop1(Drop1.UBound).Y2 = Val(Y2)
    Drop1(Drop1.UBound).Visible = True
Next i

For i = 1 To 50
Randomize
    X1 = Int((Form1.ScaleWidth * Rnd) + 1)
    Y1 = Int((Form1.ScaleHeight * Rnd) + 1)
    Y2 = Y1 + 45

    Load Drop2(Drop2.Count)
    Drop2(Drop2.UBound).X1 = X1
    Drop2(Drop2.UBound).X2 = X1
    Drop2(Drop2.UBound).Y1 = Val(Y1)
    Drop2(Drop2.UBound).Y2 = Val(Y2)
    Drop2(Drop2.UBound).Visible = True
Next i

For i = 1 To 25
Randomize
    X1 = Int((Form1.ScaleWidth * Rnd) + 1)
    Y1 = Int((Form1.ScaleHeight * Rnd) + 1)
    Y2 = Y1 + 15

    Load Drop3(Drop3.Count)
    Drop3(Drop3.UBound).X1 = X1
    Drop3(Drop3.UBound).X2 = X1
    Drop3(Drop3.UBound).Y1 = Val(Y1)
    Drop3(Drop3.UBound).Y2 = Val(Y2)
    Drop3(Drop3.UBound).Visible = True
Next i
End Sub

Private Sub Timer1_Timer()

For i = 1 To 100
If Drop1(i).Y2 > Form1.ScaleHeight Then
Drop1(i).Y1 = 0
Drop1(i).Y2 = 75
End If

    Drop1(i).Y1 = Drop1(i).Y1 + 60
    Drop1(i).Y2 = Drop1(i).Y2 + 60
Next i
End Sub

Private Sub Timer2_Timer()
For i = 1 To 50
If Drop2(i).Y2 > Form1.ScaleHeight Then
Drop2(i).Y1 = 0
Drop2(i).Y2 = 45
End If

    Drop2(i).Y1 = Drop2(i).Y1 + 15
    Drop2(i).Y2 = Drop2(i).Y2 + 15
Next i
End Sub

Private Sub Timer3_Timer()
For i = 1 To 25
If Drop3(i).Y2 > Form1.ScaleHeight Then
Drop3(i).Y1 = 0
Drop3(i).Y2 = 15
End If

    Drop3(i).Y1 = Drop3(i).Y1 + 5
    Drop3(i).Y2 = Drop3(i).Y2 + 5
Next i
End Sub