FAIRE DEFILER DES ETOILES VERTICALEMENT DANS UN FORMULAIRE

Dim X(50), Y(50), Velocity(50), Size(50) As Integer
Private Sub Form_Activate()
    Randomize
    For I = 1 To 50
        X(I) = Int(Me.Width * Rnd)
        Y(I) = Int(Me.Height * Rnd)
        Velocity(I) = Int(500 - (Int(Rnd * 499)))
        Size(I) = 16 * Rnd
    Next
End Sub

Private Sub Form_Load()
    Me.BackColor = 0
End Sub

Private Sub Timer1_Timer()
    For I = 1 To 50
        Circle (X(I), Y(I)), Size(I), BackColor
        Y(I) = Y(I) + Velocity(I)
        If Y(I) >= Form1.Height Then
            Y(I) = 0
            X(I) = Int(Form1.Width * Rnd)
        End If
        Circle (X(I), Y(I)), Size(I), vbWhite
    Next
End Sub

Télécharger le zip