Version=6.90 NumberOfForms=1 Form1=Form1 FormWidth=240 FormHeight=268 IconFile= NumberOfDesktopIncludes=1 DesktopInclude1=Door.dll NumberOfDeviceIncludes=0 NumberOfObjects=3 Object1=Obj1:Object Object2=Drop:Event Object3=Enter:Event NumberOfModules=0 Sub designer addform(Form1,"Form1","",220,220,220)@ addtextbox(form1,TextBox1,15,15,210,155,"TextBox1",255,255,255,0,0,0,True,True,True,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Sub App_Start Obj1.New1(False) Obj1.FromControl("TextBox1") Obj1.SetProperty("AllowDrop","True") Enter.New1(Obj1.Value,"DragEnter") Drop.New1(Obj1.Value,"DragDrop") Form1.Show End Sub Sub Enter_NewEvent 'To change cursor to 'droppable End Sub Sub Drop_NewEvent Msgbox("Done!") End Sub