Sub Serialize(ByVal Element As CheckedListBox)	
		Dim Files As New Hashtable
 
		For i As Integer = 0 To Element.Items.Count - 1
			Files.Add(Element.Items.Item(i),Element.GetItemChecked(i))
		Next
 
		Dim fs As New IO.FileStream("files.dat", IO.FileMode.Create)
		Dim formatter As New _
  System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
 
		Try
			formatter.Serialize(fs, Files)
		Catch e As System.Runtime.Serialization.SerializationException
			MsgBox("Es ist ein Fehler aufgetreten.")
		Finally
			fs.Close()
		End Try
	End Sub

	Function Deserialize() As ArrayList
		Dim FilesList As New ArrayList
		Dim Files As Hashtable = Nothing		
		Dim fs As New IO.FileStream("files.dat", IO.FileMode.Open)
 
		Try
			Dim formatter As New _
  System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
			Files = DirectCast(formatter.Deserialize(fs), Hashtable)
		Catch e As System.Runtime.Serialization.SerializationException
			MsgBox("Es ist ein Fehler aufgetreten.")
		Finally
			fs.Close()
		End Try
 
		Dim de As DictionaryEntry
		For Each de In Files
			FilesList.Add(de.Key+";;"+de.Value.ToString)
		Next
 
		Return FilesList
	End Function