Improve CreatePen and GetCurrentObject tests svn path=/trunk/; revision=51160
svn path=/trunk/; revision=48617