Dim fsi As FileStream
          Dim br As BinaryReader
          Dim bbhdr As BBHeader
 
          Try
              fsi = New FileStream(file, FileMode.Open)
          Catch
              MsgBox("Cannot access " + file + " possibly in use by another" & _
                "process")
              Exit Sub
          End Try
 
          br = New BinaryReader(fsi)
          bbhdr.Deserialise(br)