: )
how do i draw a circle and let it fade away on a timer
how do i draw a circle and let it fade away on a timer
Code:
x1 = (Picture1.ScaleWidth - hgt) / 2
y1 = (Picture1.ScaleHeight + wid) / 2
Private Sub Timer1_Timer()
If fade = 0 Then
fade = 255
Else
fade = fade - 1
End If
Picture1.Circle (x1, y1), 3500, vbRed
end sub