Declare Private Sub NSFNoteGetInfo_WIN32 Lib "nnotes.dll" Alias "NSFNoteGetInfo" (Byval hNote&, Byval Note_Member%, Value_ptr%)
Function IsDocumentWritable(cdoc as NotesDocument) as integer
On Error Goto ErrHnd
If False Then
ErrHnd: Error Err, Error$ & Chr(10) & Getthreadinfo(1) & " (line " & Erl & ")"
End If
Const NOTE_FLAGS% =&B111
Const NOTE_FLAG_READONLY% =&B001
Dim NoteFlags%
If cdoc Is Nothing Then Error 1234, "Wrong argument"
Call cdoc.GetItemValue("$$AccessAnyFieldForInitializeHandle")
Call NSFNoteGetInfo_WIN32(cdoc.Handle, NOTE_FLAGS, NoteFlags)
IsDocumentWritable=(NoteFlags And NOTE_FLAG_READONLY)=0
End Function