Dim sprocText as string
Dim cmdBoton as Control

SprocText="Private sub Nuevo_Cliente_Clic() " & vbcrlf 
Sproctext=sProcText & "MsgBox ""Un nuevo cliente 
agreagado""" & vbcrlf
Sproctext=sProctext & "End Sub" & vbcrlf

Docmd.OpenForm "Cuenta",acDesign

Set cmdBoton=CreateControl
("Cuenta",acCommandButton,acDetail,"","",(3.25*1440),
(0.9583*1440)(1.0417*1440),(0.25*1140)
CmdBoton.Name="nuevo_Cliente"
cmdBoton.OnClick="[Procedimiento de Evento]"
CmdBoton.Caption="Nuevo Cliente"
Forms![Cuenta].Module.InsertText sproctext

Docmd.close acForm,"Cuenta",acSaveyes
Docmd.OpenForm "Cuenta"