Dim xCount, xPace As Integer
Dim blnColorFade As Boolean Private Sub Form_Load() Timer1.Enabled = True blnColorFade = True End Sub Private Sub Timer1_Timer() xPace = xPace + 1 If blnColorFade = True Then xCount = xCount + 5 Else xCount = xCount - 10 If xCount <= 0 Then xCount = 1 blnColorFade = True End If End If Dim intCount, intA As Integer frmColor.AutoRedraw = True frmColor.ScaleHeight = (256 * 2) For intCount = 0 To 255 frmColor.Line (0, intA)-(frmColor.Width, intA + 2), _ RGB(120, intCount, xCount), BF intA = intA + 2 Next intCount If xPace = 51 Then blnColorFade = False Else End If End Sub |