Private Sub Timer1_Timer()
  Statix nCount As Long
  Dim F As Integer
  Dim sInhalt As String
 
  Do
    nCount = nCount + 1
    If nCount > m_MaxFiles Then nCount = 1
  Loop Until Dir$(App.Path & "\News" & CStr(nCount) & ".txt") <> ""
 
  F = FreeFile
  Open App.Path & "\News" & CStr(nCount) & ".txt" For Binary As #F
  sInhalt = Space$(Lof(F))
  Get #F, , sInhalt
  Close #F
  txtNews.Text = sInhalt
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de