CDrawGroupu  u  CDrawRectu u  {#Label:"Value:"} Arial  Arial    CMouseKey  zDim res res = InputBox($Ext($#Prompt:"Type the data:"), $Ext("Data Entry"), $#TagName:) If res<>"" Then $#TagName: = resDim res res = InputBox(StFunction1__(31, 1, "Type the data:"), StFunction1__(31, 1, "Data Entry"), StGetTagVal__(-1, 0, 0, 0, 0) ) If res<>"" Then Call StSetTagVal__(-1, 0, 0, 0, 0, 4, 3, res) #Disable:0 35Disable:0CFillStrLen(#TagName:)>22**35TagName:>>11.000000... Arial CDrawText COutText #TagName:35TagName: #Disable:0 35Disable:0###################### Arial