• Home
 · 
• Graphics
 · 
• 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 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

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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