передвинуть Форму

[Alex2]

Здравствуйте!
У меня такой вопрос (в принципе я его уже задавал, но полученные ответы почему-то мне не помогли (наверно потому, что я не очень хорошо знаю VB). Ну ладно продолжим:
Мне необходимо заставить мою форму Form1 занять определённое положение относительно окна WORD.

Ну hwnd окна Word я нашел следующим образом:

FFF = FindWindow("OpusApp", vbNullString)

А как сделать что-бы моя форма переместилась относительно окна Word? и встала ну скажем на середину окна Word.

Большое спасибо.
PS
если не сложно напишите пример.

[FaKk2]

А VBA причем?

[SergeySV]

Че-то я не понимаю зачем такие сложности, идти через API...

Можно же просто получить координаты окна с документом:
Xcentr=(Windows("Document1").Right-Windows("Document1").left)/2+Windows("Document1").left
Ycentr=(Windows("Document1").Bottom-Windows("Document1").top)/2+Windows("Document1").top

Теперь свое окно позиционируй относительно этих координат (или вообще все в одну строку запихнуть мона, фантазия безгранична)