=head1 NAME

Win32::GUI::BitmapLabel -- Bitmap-prepared Label

=head1 DESCRIPTION

Bitmap with all things set for you to supply a bitmap to 
display in it.

=cut





package Win32::GUI::BitmapLabel;





use strict;

use Win32::GUI;
use Win32::GUI::AdHoc;





=head1 METHODS

=head2 new(%hOption)

Create a Win32::GUI::Label which is prepared for displaying 
a Bitmap object. Other than this, it's a regular Label
object.

You can't use $window->AddBitmapLabel(), so you'll have to use 
the -parent option to specify which window it should belong 
to.

=cut
sub new { my $pkg = shift; $pkg = ref($pkg) || $pkg;
	my (%hOption) = @_;
	
	return(Win32::GUI::Label->new(
			%hOption,
			-addstyle => Win32::GUI::AdHoc::SS_BITMAP,
			-visible => 1,
			));
	}





1;





#EOF