#Draw rectangle with the image as brush my $brsBitmap = Win32::GUI::Brush->new( -style => 3, #BS_PATTERN -pattern => $bmBitmap, );