Dim Ctl1 As Control, mdl As Module
Dim Ctl2 As Control, md2 As Module
Dim strFormOpenCode As String
Dim mdl6p As Module
Dim lngReturn As Long

Set frm1 = CreateForm '(, "Plan")
Application.VBE.MainWindow.Visible = False 'Ctoby okno ne rezalo glaz...:D
With frm1
.ScrollBars = 3
.RecordSelectors = False
.NavigationButtons = False
.MinMaxButtons = None
.CloseButton = False
.WhatsThisButton = False
.ControlBox = False
.Caption = "Moja novaja forma :P"
End With
NazvForm = frm1.name
Set Ctl1 = CreateControl(NazvForm, acCommandButton, acDetail, , , 10400, 200, 1000, 500)
Ctl1.Caption = "mnmnm"
Ctl1.name = "myg"

Set mdl = frm1.Module
mdl.InsertLines 3, "Sub myg_Click"
mdl.InsertLines 4, "DoCmd.Close acForm, ""Form1"", acSaveNo"
mdl.InsertLines 5, "End sub"


Set mdl6p = frm1.Module
mdl6p.InsertLines 6, "Sub Form_Open(Cancel As Integer)"
'sdes` sozdaju kod dlia programiruemoj formy....
mdl6p.InsertLines 59, "End Sub"
mdl6p.InsertLines 60, ""

DoCmd.Close acModule, "Form_Form1", acSaveYes

DoCmd.OpenForm frm1.name, acNormal