Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
obj.New1(False)
obj.FromControl("Button1")
MouseDownEvent.New1(obj.Value, "MouseDown")
MouseUpEvent.New1(obj.Value, "MouseUp")
End Sub
Sub MouseDownEvent_NewEvent
form1.Text="button down"
End Sub
Sub MouseUpEvent_NewEvent
form1.Text="button up"
End Sub