Article ID: 148642
Article Last Modified on 9/30/2003
IF ThisForm.OleControl1.DoVerb('')
* The vast majority of modern applications fall into this category
=MESSAGEBOX("This object responded to activation",0)
ThisForm.OleControl1.DoVerb("Edit")
ELSE
* To test the validity of this process, change the previous lines of
* code into comments and run the three lines listed below.
=MESSAGEBOX("This object must be activated with the Enter key",0)
KEYBOARD '{ENTER}'
ThisForm.OleControl1.SetFocus()
ENDIF
Additional query words: inplace in-place
Keywords: kbcode KB148642