Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
Form1.Show
obj.New1(False)
obj.FromControl("Form1") 'Get a reference to the relevant form.
obj.SetProperty("KeyPreview",True) 'Setting the KeyPreview property to true will allow the form KeyPress event to handle all key presses.
keypress.New1(obj.Value,"KeyDown") 'Catch the KeyDown event.
End Sub
Sub keypress_NewEvent
obj.Value = keypress.Data
If obj.GetProperty("Control") = True AND obj.GetProperty("Alt") = True AND obj.GetProperty("KeyCode") = "E" Then
Msgbox("Ctrl+Alt+E was pressed.")
End If
End Sub