use strict;
use warnings;
use Win32::GUI;

my $w = 320;
my $h = 340;

my $skin = Win32::GUI::Bitmap->new("skin1.bmp");

my $winSkin = Win32::GUI::Window->new(
				      -width  => $w,
				      -height => $h,
				      -name   => "winSkin",
				      -text   => "Skin Test",
				      -bitmap => $skin,
				      );


my $lbl = $winSkin->AddLabel(
			     -bitmap => $skin,
			     -top => 0,
			     -left => 0,
			     );
$winSkin->Show();

my $rgn1 = Win32::GUI::Region::CreateEllipticRgn(0, -35, 150, 190);

my $rgn2 = Win32::GUI::Region::CreateEllipticRgn(140, 100, 240, 300);

Win32::GUI::Region::CombineRgn($rgn1, $rgn1, $rgn2, 2);

$winSkin->SetWindowRgn($rgn1, 1);


Win32::GUI::Dialog;


