Maybe the subject is a litlle ambigous but...
 
Well, in this case I'm an trying to create and use a set of Windows with the same behaviour, that's to say:
 
$w_analisi{$est_alu->{Nom}} = Win32::GUI::Window->new (
  -top  => 0,
  -left  => 0,
  -width     => 600,
  -height    => 400,
     -minsize => [600,400],
  -text  => "Comentaris respecte $est_alu->{Nom}",
  -name  => "Mailtool::tutor::e_w_analisi",);
 
 $comentaris{$est_alu->{Nom}} =$w_analisi{$est_alu->{Nom}}->AddTextfield(
 -foreground => [0, 0, 0],  # Color del text: negre
 -text
 -font  => $Mailtool::mevesfonts::fo_normal,
 -left  => 10,
 -top  => 10,
 -height  => 350,
 -width  => 480,
 -name  => "Mailtool::tutor::t_comentari",
 -addstyle => WS_CHILD | WS_VISIBLE | WS_VSCROLL
            | ES_LEFT | ES_MULTILINE | ES_AUTOVSCROLL,
);
 
 $comentaris{$est_alu->{Nom}}->Text("${toteltex}");
 

 $b_guardar{$est_alu->{Nom}} = $w_analisi{$est_alu->{Nom}}->AddButton(
 -text  => "GUARDAR", # Text al botó
 -font  => $Mailtool::mevesfonts::fo_normal,
 -left  => 520,
 -top  => 85,
 -height  => 25,
 -name  => "Mailtool::tutor::b_${est_alu->{Nom}}",  # ????????????????????
 );
 
  $w_analisi{$est_alu->{Nom}}->Show();
 
 
How I can receive the event for every instance of button ?? Every window have its own button.
I guess you understand what I'm trying to do...you know.....Monday morming...
 
Regards from Catalonia,
Guillem Cunillera i Wefers