Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.
Private Sub btn1_Click() msgbox("Clicked") End Sub
Sub CheckIfWeHaveEventToRun() dim frm as form, ctl as control set frm=frm1 set ctl = frm("btn1") 'I need it this way because I don't know the name of the buttons, the real code will loop on all the controls on frm1 if ctl.OnClick > "" then msgbox("We Have Event") 'How can I run the event ????? 'Call btn1[Event Procedure] ??????? else msgbox("We Don't Have Event") end if end sub