FAQ.How to bring my application to front?
Feedback.

Answer: This makes SimpleText (Code ttxt) to the frontmost application:
Example:

Dim A As AppleEvent
A = NewAppleEvent("misc","actv","")
If Not A.Send then
  Beep
end if

Notes: (Code is Mac only)