To acknowledge an Alarm, users must inform a valid user and the reason to acknowledge.

1.Insert a Command Button near the E3Alarm to acknowledge the selected Alarm.

2.On this Command Button's Click event, insert the next script.

Set alarm = Screen.Item("E3Alarm1").GetFocusedEvent()
ObjName = alarm.AlarmSourceName
Description = alarm.Message
Action = "Alarm acknowledgment"
If Application.ESign(ObjName, Description, Action, "", "",_
  User, Comment) Then
  'Acknowledgment reason
  Application.GetObject("Data.AcknowledgmentReason").Value = Comment
  'Acknowledge the alarm
  Screen.Item("E3Alarm1").AckSelected(User)
  'Clears the reason
  Application.GetObject("Data.AcknowledgmentReason").Value = ""
End If

3.Execute the application and test this new functionality.