VB Code:
  1. on error goto heaven
  2. If Me.breath=0 then
  3.    Me.Diaphram.contract
  4. end if
  5. heaven:
  6.    Harp.play