Option Explicit
Dim WithEvents Timer1 As Timer
 
Private Sub Form_Load()
  Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1")
  Timer1.Interval = 200
End Sub
 
Private Sub Timer1_Timer()
  Static nCount As Long
 
  nCount = nCount + 1
  Me.Caption = CStr(nCount)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de