-command => sub { MyRefresh($row,"force") },

##</code><code>##

    -command => [ \&MyButton, "refresh",$row,"force" ],