Plot3D[Im[(a + I b)^4], {a, -2, 2}, {b, -2, 2}]