Example of button for Workflow with a document in read mode.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace<br/>
Dim uidoc As NotesUIDocument<br/>
Dim doc As NotesDocument<br/>
Set uidoc = workspace.CurrentDocument<br/>
Set doc = uidoc.Document<br/>
<br/>
'Turn on EditMode<br/>
uidoc.EditMode = True<br/>
doc.rwfDocStatus = "Approved"<br/>
doc.rwfHasChanged = "new status"<br/>
'Call doc.Save(True,False)<br/>
uidoc.Save<br/>
uidoc.close<br/>
End Sub