Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
AddObject("button1Click","Event")
AddObject("obj","Object")
obj.New1(false)
obj.FromControl("button1")
button1Click.New1(obj.Value,"MouseDown")
End Sub
Sub Button1Click_NewEvent
obj.Value = button1Click.Data
Select obj.GetProperty("Button")
Case "Right"
Msgbox("Right button was pressed")
Case "Middle"
Msgbox("Middle button was pressed")
Case "Left"
Msgbox("Left button was pressed")
End Select
End Sub