Code: Select all
#include "Fivewin.ch"
REQUEST HB_GT_GUI_DEFAULT
FUNCTION MAIN()
LOCAL oDlg, oGet
LOCAL cVar := ""
DEFINE DIALOG oDlg
@ 0, 0 GET oGet VAR cVar MEMO;
SIZE 100, 30;
ON CHANGE TONE( 440, 1 )
@ 3, 0 BUTTON "&Close" ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL