Option Explicit
Private m_MaxFiles As Long
 
Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 10000
 
  ' Maximale Anzahl Dateien
  m_MaxFiles = 10
End Sub
 
Private Sub Timer1_Timer()
  Statix nCount As Long
  Dim F As Integer
  Dim sInhalt As String
 
  nCount = nCount + 1
  If nCount > m_MaxFiles Then nCount = 1
 
  F = FreeFile
  Open App.Path & "\News" & CStr(nCount) & ".txt"
  sInhalt = Space$(Lof(F))
  Get #F, , sInhalt
  Close #F
  txtNews.Text = sInhalt
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de