Dim my As New ArrayList
       my = csHDD.Load(sfile)

    Public Shared Function Load(ByVal sFile As String) As Object
        Dim Pfad As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.ApplicationData) + "\" + _
                                          Application.ProductName + "\" + sFile
        If Not IO.File.Exists(Pfad) Then
            Return Nothing
        End If
 
        Dim sr As IO.FileStream = Nothing
        Try
            sr = IO.File.Open(Pfad, IO.FileMode.Open)
            Dim ser As New _
              System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Return ser.Deserialize(sr)
        Catch
            Return Nothing
        Finally
            sr.Close()
        End Try
    End Function