BMP 0 Untitledphh  C .$PMControlKeyPad.CurrentButton="Ctrl03_AckAll":Call StSetTagVal__(81, 0, 18, 0, 0, 5, 1, "Ctrl03_AckAll")<$PMControlKeyPad.CurrentButton="" ControlAlarm_AckAllAlarmsGCall StSetTagVal__(81, 0, 18, 0, 0, 5, 1, "") ControlAlarm_AckAllAlarmshhh  -PMControlKeyPad.CurrentButton="Ctrl03_AckAll"22QCtrl03_AckAll=00.000000100 100.000000d00.000000100 100.000000d Arialee  Arial c c  Acknowledge1 Courier New # # All1 Courier New ; ; Alarms1 Courier New'hg'hg  C 0$PMControlKeyPad.CurrentButton="Ctrl03_AckAlarm"""Q00.000000100 100.000000d00.000000100 100.000000d'hg'hg'hg  /PMControlKeyPad.CurrentButton="Ctrl03_AckAlarm"66QCtrl03_AckAlarm=00.000000100 100.000000d00.000000100 100.000000d Arial*ed*ed  Arial 0c@ 0c@  Acknowledge1 Courier New @cP @cP  PMControlKeyPad.AckTagQ  ###########1 Courier New P3` P3` Alarm1 Courier NewCVBScriptK' Here you can declare variables and procedures and implement Line2=' some pre-defined procedures for screen. ' Declaration of variables ' Declaration of procedures ' Initialization of variables and tags Line9= Line10=' Implementation of pre-defined procedures. ' Note: The name of them can NOT be changed. ' This function is called when the screen is open. Sub Screen_OnOpen() End Sub ' This function is called while the screen is open. Sub Screen_WhileOpen() End Sub ' This function is called when the screen is closed. Sub Screen_OnClose() End Subk Sub Screen_OnOpen() End Sub Sub Screen_WhileOpen() End Sub Sub Screen_OnClose() End SubCQQPMControlKeyPad.CurrentButtonPMControlKeyPad.AckTag