I'm really interesting in approach without NotesAPI, but did not find any good. If somebody know better approach, please share it :)
Function RefreshDesign(sourceDb As NotesDatabase, refreshServer As string)
Dim destPath As String
Dim rc As Integer
Dim hDb As Integer
If sourceDb.Isopen Then
'sourceDb could be local or server
If sourceDb.server = "" Then
destPath = sourceDb.filePath
Else
destPath = sourceDb.server & "!!" & sourceDb.filePath
End If
' Open the db in the API and get a handle to the open db
rc = W32_NSFDbOpen(destPath, hDb)
' Return zero on success, non-zero on failure
If rc = 0 Then
rc = W32_DesignRefresh(refreshServer, hDb, 0, 0, 0)
Call W32_NSFDbClose(hDb)
End If
End If
End Function