CRÉER UN FOND ÉTOILÉ

Dim X(150), Y(150), S(150) As Integer
Private Sub Form_Activate()
Randomize
For i = 1 To 150
X(i) = Int(Me.Width * Rnd)
Y(i) = Int(Me.Height * Rnd)
S(i) = Int(Rnd * 16)
Next
End Sub

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

Private Sub Timer1_Timer()
For i = 1 To 150
Circle (X(i), Y(i)), S(i), vbWhite
Next
Timer1.Enabled = False
End Sub 

• CLASSE POUR L'UTILISATION DE OGRE ET NEWTON
• UTILISATION DU MOTEUR 3D OGRE, DU MOTEUR PHYSIQUE NEWTON ET DES SCÈNES OFUSION
• ANIMATION D'IMAGES
• GÉNÉRATEUR DE CODES À BARRES (EAN8, EAN13, EAN13+2 ET EAN13+5)
• GIF ANIMATION

• FOND DE FEUILLE ANIMÉ : DÉGRADÉ MOUVANT POUR ABOUT OU SPLASHSCREEN
• EASY WALLPAPER
• DÉGRADÉ DE COULEUR POUR FOND DE FORMULAIRE
• CONTROLES TRANSPARENTS
• CHANGER PAPIER PEINT (REPONSE FORUM)