use Win32::GUI qw( WS_CLIPCHILDREN );
use warnings;
use strict;

my $main = Win32::GUI::Window->new(
    -name      => "Main",
    -title     => "Test",
    -pos       => [100, 100],
    -size      => [200, 200],
    -pushstyle => WS_CLIPCHILDREN,
	-vscroll => 1,
) or die "new Window";

my $preview = $main->AddLabel(
		-name => 'label_bitmap', 
		-top => 20, 
		-left => 20,
		-height => 80,
		-width => 80,
		-background => [255,255,255],
	);

my $preview1 = $main->AddLabel(
        -name => 'label_bitmap1', 
        -top => 120, 
        -left => 20,
		-height => 80,
		-width => 80,
        -background => [255,255,255],
	);

my $sb = $main->AddStatusBar();

$main->Show();
Win32::GUI::Dialog();

sub Main_Scroll {
	print "Scroll control used\n";
}

sub Main_Resize {
		$sb->Move(0, $main->ScaleHeight - $sb->Height);
        $sb->Resize($main->ScaleWidth, $sb->Height);
}