#Draw rectangle with the image as brush my $brsBitmap = Win32::GUI::Brush->new( -style => 3, #BS_PATTERN -pattern => $bmBitmap, ); #### $dcDev->SelectObject($rhBrush->{noPen}); Win32::GUI::AdHoc::SetBrushOrgEx($dcDev, #Move the brush origin $rhPosCache->{left} + $leftBitmap, $rhPosCache->{top} + $topBitmap); $dcDev->SelectObject($brsBitmap); $dcDev->Rectangle( $rhPosCache->{left} + $leftBitmap, $rhPosCache->{top} + $topBitmap, $rhPosCache->{left} + $leftBitmap + $widthBitmap + 1, $rhPosCache->{top} + $topBitmap + $heightBitmap + 1, );