Changing the Window_Resize subroutine to this seems to have done the trick but I am open to any suggestions on improving the code. Thanks

sub Window_Resize {
  if($Window->Height() >= ($Grid->GetVirtualHeight)){
     $Window->Height($Grid->GetVirtualHeight + 38);
  }
  if($Window->Width() >= ($Grid->GetVirtualWidth)){
     $Window->Width($Grid->GetVirtualWidth + 12);
  }
    my ($width, $height) = ($Window->GetClientRect)[2..3];
    $Grid->Resize($Window->Width(), $Window->Height());
}
[download]