Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you

by Anonymous (267 Submissions)
Category: Graphics
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 15^th June 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if your version doesn't, make the timer and shape

Rate Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you



Set X1 = Controls.Add("VB.Timer", "X1")
Set X2 = Controls.Add("VB.Shape", "X2")
X2.Visible = True
X1.Interval = 1
X2.Width = 855
X2.Height = 855
X2.FillColor = &H0
X2.BorderColor = 16000 - &H0
X2.FillStyle = vbSolid
End Sub

Private Sub X1_Timer()
X2.FillColor = X2.FillColor + 10000
X2.BorderColor = X2.BorderColor - 10000
If X2.FillColor <= 10000 Then X2.FillColor = 160000
If X2.BorderColor <= 10000 Then X2.BorderColor = 160000
End Sub

Download this snippet Add to My Saved Code

Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you Comments

No comments have been posted about Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you. Why not be the first to post a comment about Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you.

Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you

Pulsating Glowing Color-changing Shape It should work on any VB that supports Controls.Add - if you Comments

Post your comment

Difficulty