*!* Create the form and position it
frmMyForm = createobject('form')  && Create Form
frmMyForm.move(12,45,850,400)  && Move the form
frmMyForm.caption = "Test"
frmMyForm.showtips = .t.

frmMyForm.addobject('grdMyGrid','Grid')
frmMyForm.grdmygrid.left=460
frmMyForm.grdmygrid.top = 70
frmMyForm.addobject('txtmyText','Textbox')
frmMyForm.txtmytext.left=460
frmMyForm.txtmytext.inputmask = '999,999,999 zlei'
frmMyForm.addobject('showmask','maskbutton')
frmMyForm.addobject('exit','quitbutton')
frmmyform.exit.top = 300

*!*	Make the controls visible
for each control in frmMyForm.controls
  control.visible = .t.
endfor


frmMyForm.show  && Display the form

read events  && Start event processing

define class QuitButton as commandbutton
  caption = "Exit"

  procedure click
    clear events && Stop event processing, close Form
    clear  && Clear main Visual FoxPro window
  endproc &&click

ENDDEFINE

define class MaskButton as commandbutton
  caption = "See InputMask"

  procedure click
    wait window this.parent.txtmytext.inputmask nowait
  endproc &&click

enddefine