NotesDatabase.CreateFTIndex does not work properly

With this code I’m trying to create a full-text index of the local names.nsf programmatically:

Dim ns As New NotesSession

Dim ndbRequest As NotesDatabase

Dim lngOptions As Long



lngOptions = 31 '// all options are selected

Set ndbRequest = New NotesDatabase( "", "names.nsf" )

Call ndbRequest.CreateFTIndex( lngOptions, True )

But the options will be ignored! How can I fix this issue?

The same was with 8.0.1 (both versions english and german)