Plot3D[Im[(x + I y)^2 Log[(x + I y)/ (1 - (x + I y))]], {x, -2, 2}, {y, -2, 2}, AxesLabel -> {"x", "y"}]