とても基本的なことのような気がするのですが、うまくいかないので困っております。
アクションボタンを押すとフレームセットが開き、各フレームにそれぞれ文書を表示する処理をしたいのですが、下記のようにしてもそれぞれの文書が別々のウィンドウとして開いてしまい、一つのウィンドウの各フレームとして開いてくれません。
何か勘違いをしているとは思うのですが、どこがおかしいのでしょうか?
Dim Session as New NotesSession
Dim Uiws as New NotesUIworkspace
Dim Db as NotesDatabase
Dim DocA as NotesDocument
Dim DocB as NotesDocument
Set Db = Session.CurrentDatabase
Call Uiws.OpenFrameSet("FrameSet")
Set DocA = Db.CreateDocument
DocA.Form = "FormA"
Call Uiws.SetTergetFrame("FrameA")
Call Uiws.EditDocument(False , DocA , True , , False)
Set DocB = Db.CreateDocument
DocB.Form = "FormB"
Call Uiws.SetTergetFrame("FrameB")
Call Uiws.EditDocument(False , DocB , True , , False)