App Blincking in Windows status bar

I have a small problem.
I use word automation with my vb6 application
set AppWord= createobject("Word.application")
I have a vbform displayed above the word document.
I make schanges on a tetboxshape when a command1 button on the vbform is clicked. The open word doc then keeps blincking in the windows statusbar.
I thought using an extra AppWord.activate or AppWord.ActiveDocument.activate will solve this problem but it doens't what can i do about this. The blinking status is very enoying for the user.

hold a variable pointing to the word app.
objWord.visible = false 'hide the app
'---- do stuff
objWord.visible = true 'show the app
objword.setfocus 'set the focus to the word doc


Its probably complaining because it expected to have the focus and didn't get it.

It's asked mutch of word hide and display a complete word doc in fraction of second.
Is allso disturbing for the user, isn't there a better way.
I thought there is an api to disable the busy blicking state of the doc in de windows status bar.

As soon as i use Appword.Activate to activate the word doc i allready get the blinking effect, when i put codeline in a label1_click or in a command1_click.

Notice i only get that blinking/flickering effect when running the translated EXE file and not when running in the VB editor!