Option Explicit
Private Declare Sub keybd_event Lib "user32.dll" ( _
  ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Form_Load()
    Randomize
    Timer1.Interval = Int((7000 - 6500 + 1) * Rnd + 6500)
    Timer1.Enabled = False
End Sub
 
Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Static try
 
  try = try + 1
  If try > 1000 Then
    Timer1.Enabled = False
    MsgBox "Fertig!"
    Exit Sub
  End If
 
  List1.AddItem CStr(try)
 
  ' Intervall neu festlegen
  Timer1.Interval = Int((7000 - 6500 + 1) * Rnd + 6500)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de