Dim ses As New NotesSession
Dim db as NotesDatabase
Dim ClickedOK As Integer
Dim tmpDialogBox As Notesdocument
Set db = ses.CurrentDatabase
Set tmpDialogBox = db.CreateDocument
ClickedOK = uiws.DialogBox("FormName",True, True, False, False, False, False, "Titel", tmpDialogBox, True, False, False)