PUBLIC ofrmMedstrah
ofrmMedstrah = NEWOBJECT("ofrmMedstrah")
ofrmMedstrah.SHOW
RETURN

**************************
DEFINE CLASS ofrmMedstrah AS FORM
  AUTOCENTER = .T.
  HEIGHT = 150
  WIDTH = 300
  CAPTION = "введи слово, нажми Enter"

ADD OBJECT txtWord AS TEXTBOX WITH ;
  LEFT = 100, ;
  TOP = 50, ;
  WIDTH = 100
 
PROCEDURE KeyPress()
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
  MESSAGEBOX("У меня одного подгорает от слова "+ALLTRIM(thisform.txtWord.Value)+"?",0,"ответ медстраха:")
ENDIF
ENDPROC 

ENDDEFINE