How to get embeded view on form?

[hcl-bot]

dim w as new Notesuiworkspacedim uidoc as Notesuidocument

dim uiview as Notesuiview

set uidoc = w.currentDocument

How to set uiview to be embedded view on the uidoc ?

Thank you,

SuperPorn