'-----------------------------
	'editieren einer Datei mit Timeout
        FileIOStart = My.Computer.Clock.TickCount
        Do
            Try 
                'diese Zeile stürzt ab wenn die Datei gerade zum Schreiben von 
                ' jemand anders geöffnet ist
		Dim StrW As New StreamWriter(sFilePath)
                'hier ist die Datei geöffnet und für andere zum schreiben 
                ' blockiert
			'lese nun den Inhalt der Datei ein 
			FileContent = GetFileContent(sFilePath)
			'... nun kann FileContent verändert werden ...
			'...  das muss sehr schnell gehen ...
			'...  damit die anderen nicht zu lange warten müssen
		Dim XmlSdoc As New XmlSerializer(FileContent.GetType)
                XmlSdoc.Serialize(StrW, FileContent)
                StrW.Close()
                Exit Do
            Catch ex As Exception
                If My.Computer.Clock.TickCount > FileIOStart + _
                  FileOperationTimout Then
                    MsgBox("Die Datei " & sFilePath & " konnte nicht geöffnet" & _
                    "werden." & vbCrLf & ex.Message, MsgBoxStyle.Critical)
                    Exit Do
                End If
            End Try
        Loop