CDrawGroup/%%U  CDrawRect {#Label:"Value:"} ArialUU  {#TagName:} ArialTlTl  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:0... Arialkk   Dim res res = MsgBox($Ext("Are you sure you want to erase the value '" & $#TagName: & "' ?"), vbYesNo + vbQuestion, $Ext("Erase Value")) If res=vbYes Then $#TagName: = ""Dim res res = MsgBox(StFunction1__(31, 1, "Are you sure you want to erase the value '" & StGetTagVal__(-1, 0, 0, 0, 0) & "' ?"), vbYesNo + vbQuestion, StFunction1__(31, 1, "Erase Value")) If res=vbYes Then Call StSetTagVal__(-1, 0, 0, 0, 0, 4, 3, "") #Disable:0 35Disable:0 Arial CDrawBitmapp~p~   (  h