es geht nicht ume den Fokus - eine Dialogbox erwartet als Argument ein Document.
aber gut......
ein anderer Weg - du erstellst dir einen Agent test (manually from agent list) und rufst ihn in der Formel auf:
@Command( [ToolsRunMacro] ; "(test)" )
Agent
Dim s As New Notessession
Dim db As notesdatabase
Dim ws As New notesuiworkspace
Set db=s.currentdatabase
Dim newDoc As New NotesDocument( db )
newDoc.Form = "fEingabe"
Call ws.DialogBox( "fEingabe", True , True, True, True, True, False, "neue Page",newDoc , ,True)
- das ist getestet und funktioniert
cu