version 5.80 0 Form1 1 2 0 0 0 2 0 0 2 0 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addlabel(form1,Label2,10,70,120,20,"TextBox-ReadOnly:",220,220,220,0,0,0,True,True,9)@ addlabel(form1,Label1,5,30,40,25,"Input:",220,220,220,0,0,0,True,True,9)@ addbutton(form1,cmdShow,140,30,75,23,"Show",212,209,255,0,0,0,True,True,9)@ addtextbox(form1,txtReadonly,10,90,205,22,"",255,255,255,0,0,0,True,True,False,9)@ addtextbox(form1,txtReadWrite,45,30,85,22,"",255,255,255,0,0,0,True,True,False,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. Dim objName End Sub Sub App_Start TextboxToLabel("txtReadOnly") Form1.Show End Sub Sub cmdShow_Click txtReadOnly.Text=txtReadWrite.Text End Sub '****************************** Sub TextboxToLabel(objTextbox) AddEvent (objTextbox ,"GotFocus", "goLabelFocus") End Sub Sub goLabelFocus ConvertTextboxToLabel(Control(Sender).name) End Sub Sub ConvertTextboxToLabel(objTextbox) objName = objTextbox AddEvent (objTextbox ,"KeyPress", "goIgnorekey") End Sub Sub goIgnorekey(key) Control(objName).ignorekey End Sub '******************************