Update ApplicationEvents.vb