version 6.30 0 Form1 1 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 238 268 1 Door.dll 1 Door.dll 4 eventButton2:Event eventButton1:Event eventTextBox1:Event obj:Object Sub designer addform(Form1,"Form1","",220,220,220)@ addtextbox(form1,TextBox1,35,135,75,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@ addbutton(form1,Button2,30,50,75,23,"Button2",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button1,95,95,75,23,"Button1",212,208,200,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show obj.New1(false) obj.FromControl("button1") eventButton1.New1(obj.Value,"MouseMove") AddEvent("eventButton1",NewEvent,"ControlEvents") obj.FromControl("button2") eventButton2.New1(obj.Value,"MouseMove") AddEvent("eventButton2",NewEvent,"ControlEvents") obj.FromControl("textbox1") eventTextBox1.New1(obj.Value,"MouseMove") AddEvent("eventTextbox1",NewEvent,"ControlEvents") End Sub Sub ControlEvents obj.Value = Control(Sender,Event).Data crl = SubString(Sender,5,StrLength(Sender)-5) x = obj.GetProperty("X") y = obj.GetProperty("Y") Form1_MouseMove(x + Control(crl).Left,y + Control(crl).Top) End Sub Sub Form1_MouseMove (x,y) form1.Text = x & " " & y End Sub