sub CreateUserPopupMenu {

     my( $self, $event ) = @_;

     my $x=$event->GetPoint()->x;
     my $y=$event->GetPoint()->y;
	
    print "X: $x\n";
    print "Y: $y\n\n";
    
    my $menu=Wx::Menu->new();

    $menu->Append($id[1000], "Delete User");
    EVT_MENU( $self, $id[1000], \&DeleteUser );

    $self->PopupMenu($menu, $x, $y);
	
}