Function ClickEventProc() As Boolean
Dim frm As Form, ctl As Control, mdl As Module
Dim lngReturn As Long

On Error GoTo Error_ClickEventProc

'Возвращает ссылку на форму
set frm = Forms!ВашаФорма
'Возвращает ссылку на модуль формы.
Set mdl = frm.Module

	for each ctl in frm		' for i=0 to стопиццот контролов -1
	
'			 Добавляет процедуру обработки события.
		lngReturn = mdl.CreateEventProc("Здесь имя процедуры в кавычках", ctl.Name)

'			 Вставляет текст в процедуру.
		mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Порядок!"""
		ClickEventProc = True
		
	Next ctl

Exit_ClickEventProc:
	Exit Function

Error_ClickEventProc:
	MsgBox Err & " :" & Err.Description
	ClickEventProc = False
	Resume Exit_ClickEventProc
End Function