sub Main { my $Menu Win32::GUI::MakeMenu( '&Program' => 'Program', ' > &Settings' => { -name => 'Settings', -onClick => \&GUI_Settings }, ' > &About' => { -name => 'About', -onClick => \&About_Click }, ' > &Update' => { -name => 'Update', -onClick => \&Update_Now }, ' > E&xit' => { -name => 'Exit', -onClick => \&Main_Terminate } ); my $WinMain = Win32::GUI::Window->new( -name => 'Main', -menu => $Menu, ... ); ... } sub Update_Now { my($Window)=@_; # Disable the 'Update' menu item }