Dim intCounter As Integer
 
Private Sub Form_Load()
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  intCounter = intCounter + 1
  If intCounter mod 2 = 1 Then
    CommandButton1.BackColor = vbRed
  Else
    CommandButton1.BackColor = vbWhite
    If intCounter = 6 Then Timer1.Enabled = False
  End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.