Dim ws As New NotesUIWorkspace
Dim uidoc1 As NotesUiDocument
Dim uidoc2 As NotesUiDocument
Set uidoc1 = ws.CurrentDocument
'[...]
Set uidoc2 = ws.ComposeDocument("", "", "FormA")
Call uidoc1.CloseDas geht dann auch in die Richtung der Tabellenreiterchen ;DStimmt, hatte Deinen Beitrag zwar gelesen, aber dann glatt verdrängt ...