Spelling checking in powerbuilder

Hi Everyone,

I am using PB11.1 build 8123. I want to add a functionality to checking the spelling. I write below code but I have a problem that MS WORD open as minimized state.  I want this at front of user. Please suggest.

Global external function

------------------------------------------

PUBLIC FUNCTION unsignedlong FindWindow (long  &

   classname, string windowname) LIBRARY "user32.dll" &

   ALIAS FOR FindWindowW

PUBLIC FUNCTION int SetForegroundWindow (unsignedlong &

   hwnd) LIBRARY "user32.dll" ALIAS FOR  SetForegroundWindowW

code

------------

string ls_current_text

ls_current_text=mle_1.text

If ls_current_text = "" then Return

If Clipboard(ls_current_text) = ""  Then RETURN

OleObject myOleObject

myOleObject = CREATE OLEObject

If myOleObject.ConnectToNewObject("word.application") <> 0 Then Return

unsignedlong hwnd

hwnd = FindWindow ( 0, "Document1")

myoleobject.Application.Visible = True

myoleobject.Application.WindowState = 1

myoleobject.Application.Documents.Add.Content.Paste

if hwnd = 0 then

  //

else

  SetForegroundWindow ( hwnd)

end if

myoleobject.Application.ActiveDocument.CheckSpelling

myoleobject.Application.ActiveDocument.Content.Copy

myoleobject.ActiveDocument.Close(0)

myoleobject.Application.Quit

myOleObject.disconnectobject()

Destroy myOleObject

messagebox("Information", "The spelling and grammer check is complete.")

mle_1.text=Clipboard(ls_current_text)