exec 4gl send userevent frame (eventname = :strvar
                        [, messageobject = :objvar]
                        [, messageinteger = :intvar]
                        [, messagefloat = :fltvar]
                        [, messagevarchar = :strvar]
                        [, focusbehavior = :strvar]
                        [, delay = :fltvar]);