Private Sub Timer1_Timer()
 
List1.Clear
 
 
Dim FNr As Integer
Dim Inhalt As String
Dim zeile() As String
Dim N As Integer
 
FNr = FreeFile
 
Open "netsession.rb" For Input As #FNr
   Inhalt = Input(LOF(FNr), #FNr)
Close #FNr
 
zeile = Split(Inhalt, vbCrLf)
 
 
 
For N = 0 To UBound(zeile)
  If InStr(1, zeile(N), "\\") Then
List1.AddItem List1.Text & Mid(zeile(N), 1, InStr(1, zeile(N), " ") - 1)
form_view.visible = true  ' <<<<< Da ist der fehler.....
  End If
Next
 
 
 
 
End Sub