FoxPro/Visual FoxPro - error con word

Bajo version 6.
Tengo el siguiente codigo para activar un documento vacio, el que al
ejecutarlo desde una opcion del menu, me sale un error aleatorio de dispacht
diciendome que la venta ya esta maximizada.
Alguna sugerencia?

local oForm

oForm = Createobject("form1")

DEFINE CLASS form1 AS form

Height = 250
Width = 375
ShowWindow = 2
AutoCenter = .T.
BorderStyle = 2
Caption = ""
MaxButton = .F.
Name = "Form1"

proc init
loWord = CREATEOBJECT("Word.Application")
loDocument = loWord.Documents.Add()
loWord.height=300
loword.left=5
loword.top=2
loword.width=400
loword.visible=.t.
loword.windowstate=0
loword.activate
release oform
endproc

enddefine

Gracias

Probé tu codigo aqui desde un .prg y funciona perfectamente. Postea el mensaje de error completo.

Asi es, no se produce siempre, sino aleatorio, si vuelve a producirse pongo el texto correspondiente.