Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
obj.New1(False)
obj.FromControl("image1")
MouseDownEvent.New1(obj.Value, "MouseDown")
End Sub
Sub MouseDownEvent_NewEvent
obj.Value = MouseDownEvent.Data
x = obj.GetProperty("X")
y = obj.GetProperty("Y")
form1.Text = x & " " & y
End Sub
gw.New1("Form1",0,0,321,321)
gw.DrawBackgroundImage(AppPath & "\grid 20x20.png")
Sub gw_NoCollisionMouse
Msgbox("yes")
label3.Text=gw.x
label4.Text=gw.y
End Sub