use Win32::GUI;
use Win32::GUI::GridLayout;

my $mw = Win32::GUI::Window->new (
    -name => 'Main',
    -width => 300,
    -height => 100,
    -text => 'bbtrack',
    );

my $grid = apply Win32::GUI::GridLayout($mw, 4, 4, 0, 0);

for my $col (1 .. 4) {
   for my $row (1 .. 4) {
      my $lab = $mw->AddLabel(
         -name => "MainLabel$col$row",
         -text => "C: $col, R: $row");
      $grid->add($lab, $col, $row);
   }
}
$grid->recalc;
$mw->Show();
Win32::GUI::Dialog();

sub Main_Resize {
   $grid->recalc();
}