package MyDragDrop

sub new
my ($module) = @_;
return bless $self, ref($module) || $module;

sub DropSite

sub SetDropSite

sub ConfigureDrop

sub AcceptDrop