Das ist die Lösung:
Const APIModule = "NNOTES" ' Windows/32 only
Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" _
( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" _
( Byval H As Long) As Integer
Declare Function DesignRefresh Lib APIModule Alias "DesignRefresh" _
( Byval S As String, Byval hDB As Long, Byval F As Long _
, Byval zA As Long, Byval zM As Long) As Integer
Dim s As New NotesSession
Dim hDB As Long
NSFDbOpen "datenbank.nsf", hDB
Call DesignRefresh("", hDB, 1, 0, 0)
NSFDbClose hDB