Dim file As Folderitem = GetSaveFolderItem("DOCX", "test.docx")Dim it As New WordIteratorDim ftit As New FTIterator(TestDisplay, it)// Set the cursor to a watch.App.MouseCursor = System.Cursors.Wait// Create the Microsoft Word output.ftit.Run(Nil, Nil)it.Save(file, it.ZIP_MBS)// Reset the cursor.App.MouseCursor = Nil