my $table = $MainFrame-> MListbox(  -selectmode => 'single',
                                   -columns=>[
                                      [-text=>'Date', -sortable=>1,     -width => 0],
                                      [-text=>'Time', -sortable=>1,     -width => 0],
                                      [-text=>'Name', -sortable=>1,     -width => 0],
                                      [-text=>'Address', -sortable=>1,  -width => 0],
                                      [-text=>'Phone', -sortable=>1,    -width => 0]
                                              ] )->pack(-fill=> 'both',
                                                        -expand =>1,
                                                        -side=>'left',
                                                        -ipadx => 5);;

  while($result->fetch()){
       ### Results from DB query

    $table->insert('end', [$Date, $Time, $Name, $Address, $Phone]);

  }
  
    my $scroll = $MainFrame->Scrollbar(-command => ['yview', $table]);
    table->configure(-yscrollcommand => ['set', $scroll]);

    $scroll->pack(-side => 'right', -fill => 'y');