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);
	
}

##</code><code>##

    my $sz =  $self->GetSize();
    my ($posx,$posy) = $self->ClientToScreen((0,0));
    my $height = $sz->GetHeight();
    my $width = $sz->GetWidth();