Hoe Generating document tonen?

[BenVan]

Ben bezig met een scriptje maar zit met volgende vraag
Dit is scriptje:
Dim gApp
Dim doc
Set gApp = CreateObject("Word.Application")
Set doc = CreateObject("Scripting.FileSystemObject")
gApp.documents.Open(doc.GetAbsolutePathName("wizards\Wizard.doc"))
gapp.Run "AutoSamenVoeg"
gApp.documents.Open(doc.GetAbsolutePathName("wizards\Wizard.doc"))
gapp.Run "OpenDoc"
gApp.Visible=TRUE

Nu is mijn bedoeling van ondertussen een schermpje te tonen zoals in bijlage:
Met welke code genereer je zo'n schermpje? Iemand? Het zal veel duidelijker zijn voor de gebruiker.

groetjes

 

[That Guy]

je zou iets kunnen doen als een extra userform toe te voegen,
en daar een label met "generating document" op te zetten

dan doe je het zo:
je maakt het 2e formulier en je noemt het bijvoorbeeld "frmgeneratedocument"

in het normale userform:

Private Sub object_event()[COLOR="Green"] 'Bijvoorbeeld "commandbutten_click"[/COLOR]
[COLOR="DimGray"]frmgeneratedocument.show[/COLOR]
**hier je eigen code**
[COLOR="dimgray"]unload(frmgeneratedocument)[/COLOR]
end sub