How to make $ mathrm {Abs}[x + y, I]^ 2 $ produces $ x ^ 2 + y ^ 2 $?

I want to have x ^ 2 + y ^ 2 evaluating ABS[a + b I]^ 2. Unfortunately, Mathematica simply reproduces the same thing. ABS[a + b I]^ 2.