هل يمكن عمل نموذج جديد بالكود

	  Function ClickEventProcForm()
		 Dim frm As Form, ctl As Control, mdl As Module
		 Dim lngReturn As Long
		 On Error GoTo Error_ClickEventProcForm
		 Set frm = CreateForm
		 Set ctl = CreateControl(frm.Name, acCommandButton, , , , 1000, _
			1000)
		 ctl.Caption = "Click here"
		 Set mdl = frm.Module
		 lngReturn = mdl.CreateEventProc("Click", ctl.Name)
		 mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!"""
		 DoCmd.Close acForm, frm.Name, acSaveYes
		 ClickEventProcForm = True
	  Exit_ClickEventProcForm:
		 Exit Function
	  Error_ClickEventProcForm:
		 MsgBox Err & " :" & Err.Description
		 ClickEventProcForm = False
		 Resume Exit_ClickEventProcForm
	  End Function

http://support.microsoft.com/kb/159690/ar