Forgot the example - I need a coffee:)
 
 
==============
use Win32::GUI;
use strict;
 
#create a dummy menu
my $Menu = new Win32::GUI::Menu(
    "&File" => "File",
    "   >   &New",
    "   >   &Open",
    "   >   &Save",
    "   >   Save &As",
    "   >   &Close",
 
);
 
#create the main window
my $mainwindow = new GUI::Window(
    -title    => "Win32::GUI::Rebar test",
    -left     => 100,
    -top      => 100,
    -width    => 600,
    -height   => 200,
    -name     => "Window",
    -menu   => $Menu,
    -onTerminate => sub { return -1 },
);
 

#create a child window for band 2 of the rebar control, this band will contain two dropdowns
my $band2 = new Win32::GUI::Window (
    -parent    => $mainwindow,
    -name      => "RebarBand2",
    -popstyle  => WS_CAPTION | WS_SIZEBOX,
    -pushstyle => WS_CHILD,
);
 
#create the first drop down
my $dd1 = $band2->AddCombobox(
    -name      => "Dropdown",
    -pos       => [0, 0],
    -size      => [100, 80],
    -addstyle  =>  3 | 2097152  | 1048576,
    -tip       => 'Some items',  
);
 
$dd1->Add('Item 1','Item 2','Item 3','Item4');
$dd1->Select(0);
 
#create the second drop down
my $dd2 = $band2->AddCombobox(
    -name   => "Dropdown2",
    -pos    => [105, 0],
    -size   => [100, 80],
    -addstyle  =>  3 | 2097152  | 1048576,
    -tip       => 'Some colours',
);
 
$dd2->Add('Red','Blue','Green');
$dd2->Select(0);
 
#create a child window for band 3 of the rebar control
my $band3 = new Win32::GUI::Window (
    -parent   => $mainwindow,
    -name     => "RebarBand3",
    -popstyle => WS_CAPTION | WS_SIZEBOX,
    -pushstyle => WS_CHILD,
);
 
# create Date time control for band 3
my $DateTime = $band3->AddDateTime (
    -name     => "DateTime",
    -pos      => [0, 0],
    -size     => [130, 20],
    -tip      => 'A date and time',
);
#set the format for the datetime control
$DateTime->Format('dd-MMM-yyyy HH:mm:ss');
 
#Add a button to band 3
$band3->AddButton (
         -name     => 'Button',
         -pos      => [135, 0],
         -size     => [50, 20],
         -text     => 'Button',
         -tip      => 'A Button',
         -onClick => sub {print 'button clicked' },
);
 
#Add a button to band 3
$band3->AddButton (
         -name     => 'Button1',
         -pos      => [195, 0],
         -size     => [50, 20],
         -text     => 'Button1',
         -tip      => 'A Button',
         -onClick => sub {print 'button1 clicked' },
);
 
#create a rebar control
 
my $rebar = $mainwindow->AddRebar(
    -name   => "Rebar",
    -bandborders => 1,
);
 
#Insert band 1
$rebar->InsertBand (-text => 'One' ,);
#Insert band 2
$rebar->InsertBand ( 
  -child     => $band2,
  -width     => 210,
  -minwidth  => 210,
  -minheight => 20,
);
#Insert band 3
$rebar->InsertBand (
  -child     => $band3,
  -width     => 250,
  -minwidth  => 250,
  -minheight => 20,
);
 
#show the main window
 
$mainwindow->Show;
 
Win32::GUI::Dialog;
 

sub Rebar_HeightChange {
  #event not working?
  print 'Rebar_HeightChange';
}