Loading forms as classes from Listbox click events

D

dd

Not one for the faint of heart. I reckon this is a bug.

When I click on a given listbox in a form, I open another form which
has a listbox on it.
If I open that second form as a class module, then the listbox on the
second form won't work, you can't click on it.

Its only a problem when:
1. Open the second form as a class module (set frm = new Form_Form2) as
opposed to using docmd.openform (its done this way so can open multiple
copies of the second form)
2. Open the second form from within a Click event on a listbox on the
first form (dblclick is ok, click from a textbox is ok).
3. The secondform has a combo or listbox (normal or multiselect).

Have attached forms to demonstrate. Just paste this code into a module
and run it to create the test forms.

So anyone got any ideas? know how you get MS to look into a bug?
Cheers

------------------------------------------------------------
' When you paste or change this code, save & compile before trying to
run
Sub MakeThisForm()

Dim frm As Form
Dim ctl As Control
Dim strFormName As String

On Error Resume Next
Set frm = Application.CreateForm()
strFormName = frm.Name
DoCmd.SelectObject acForm, strFormName
frm.RecordSource = Replace("", "|", vbCrLf)
frm.Filter = Replace("", "|", vbCrLf)
frm.FilterOn = Replace("False", "|", vbCrLf)
frm.OrderBy = Replace("", "|", vbCrLf)
frm.OrderByOn = Replace("False", "|", vbCrLf)
frm.AllowFilters = Replace("True", "|", vbCrLf)
frm.Caption = Replace("Caller", "|", vbCrLf)
frm.DefaultView = Replace("0", "|", vbCrLf)
frm.ViewsAllowed = Replace("0", "|", vbCrLf)
frm.AllowEditing = Replace("True", "|", vbCrLf)
frm.DefaultEditing = Replace("2", "|", vbCrLf)
frm.AllowEdits = Replace("True", "|", vbCrLf)
frm.AllowDeletions = Replace("True", "|", vbCrLf)
frm.AllowAdditions = Replace("True", "|", vbCrLf)
frm.DataEntry = Replace("False", "|", vbCrLf)
frm.AllowUpdating = Replace("0", "|", vbCrLf)
frm.RecordsetType = Replace("0", "|", vbCrLf)
frm.RecordLocks = Replace("0", "|", vbCrLf)
frm.ScrollBars = Replace("3", "|", vbCrLf)
frm.RecordSelectors = Replace("False", "|", vbCrLf)
frm.NavigationButtons = Replace("False", "|", vbCrLf)
frm.DividingLines = Replace("True", "|", vbCrLf)
frm.AutoResize = Replace("True", "|", vbCrLf)
frm.AutoCenter = Replace("False", "|", vbCrLf)
frm.PopUp = Replace("False", "|", vbCrLf)
frm.Modal = Replace("False", "|", vbCrLf)
frm.BorderStyle = Replace("2", "|", vbCrLf)
frm.ControlBox = Replace("True", "|", vbCrLf)
frm.MinButton = Replace("True", "|", vbCrLf)
frm.MaxButton = Replace("True", "|", vbCrLf)
frm.MinMaxButtons = Replace("3", "|", vbCrLf)
frm.CloseButton = Replace("True", "|", vbCrLf)
frm.WhatsThisButton = Replace("False", "|", vbCrLf)
frm.Width = Replace("5886", "|", vbCrLf)
frm.Picture = Replace("(none)", "|", vbCrLf)
frm.PictureType = Replace("0", "|", vbCrLf)
frm.PictureSizeMode = Replace("0", "|", vbCrLf)
frm.PictureAlignment = Replace("2", "|", vbCrLf)
frm.PictureTiling = Replace("False", "|", vbCrLf)
frm.Cycle = Replace("0", "|", vbCrLf)
frm.MenuBar = Replace("", "|", vbCrLf)
frm.Toolbar = Replace("", "|", vbCrLf)
frm.ShortcutMenu = Replace("True", "|", vbCrLf)
frm.ShortcutMenuBar = Replace("", "|", vbCrLf)
frm.GridX = Replace("10", "|", vbCrLf)
frm.GridY = Replace("10", "|", vbCrLf)
frm.LayoutForPrint = Replace("False", "|", vbCrLf)
frm.FastLaserPrinting = Replace("True", "|", vbCrLf)
frm.HelpFile = Replace("", "|", vbCrLf)
frm.HelpContextId = Replace("0", "|", vbCrLf)
frm.SubdatasheetHeight = Replace("0", "|", vbCrLf)
frm.SubdatasheetExpanded = Replace("False", "|", vbCrLf)
frm.RowHeight = Replace("-1", "|", vbCrLf)
frm.DatasheetFontName = Replace("Arial", "|", vbCrLf)
frm.DatasheetFontHeight = Replace("8", "|", vbCrLf)
frm.DatasheetFontWeight = Replace("400", "|", vbCrLf)
frm.DatasheetFontItalic = Replace("False", "|", vbCrLf)
frm.DatasheetFontUnderline = Replace("False", "|", vbCrLf)
frm.DatasheetGridlinesBehavior = Replace("3", "|", vbCrLf)
frm.DatasheetGridlinesColor = Replace("12632256", "|", vbCrLf)
frm.DatasheetCellsEffect = Replace("0", "|", vbCrLf)
frm.DatasheetForeColor = Replace("0", "|", vbCrLf)
frm.ShowGrid = Replace("True", "|", vbCrLf)
frm.DatasheetBackColor = Replace("16777215", "|", vbCrLf)
frm.DatasheetBorderLineStyle = Replace("1", "|", vbCrLf)
frm.HorizontalDatasheetGridlineStyle = Replace("1", "|", vbCrLf)
frm.VerticalDatasheetGridlineStyle = Replace("1", "|", vbCrLf)
frm.DatasheetColumnHeaderUnderlineStyle = Replace("1", "|", vbCrLf)
frm.hWnd = Replace("8652062", "|", vbCrLf)
frm.Count = Replace("13", "|", vbCrLf)
frm.LogicalPageWidth = Replace("9070", "|", vbCrLf)
frm.Visible = Replace("True", "|", vbCrLf)
frm.Painting = Replace("True", "|", vbCrLf)
frm.FrozenColumns = Replace("1", "|", vbCrLf)
frm.Name = Replace("frmCaller", "|", vbCrLf)
frm.PaletteSource = Replace("(Default)", "|", vbCrLf)
frm.Tag = Replace("", "|", vbCrLf)
frm.OnCurrent = Replace("", "|", vbCrLf)
frm.BeforeInsert = Replace("", "|", vbCrLf)
frm.AfterInsert = Replace("", "|", vbCrLf)
frm.BeforeUpdate = Replace("", "|", vbCrLf)
frm.AfterUpdate = Replace("", "|", vbCrLf)
frm.OnDirty = Replace("", "|", vbCrLf)
frm.OnDelete = Replace("", "|", vbCrLf)
frm.BeforeDelConfirm = Replace("", "|", vbCrLf)
frm.AfterDelConfirm = Replace("", "|", vbCrLf)
frm.OnOpen = Replace("", "|", vbCrLf)
frm.OnLoad = Replace("", "|", vbCrLf)
frm.OnResize = Replace("", "|", vbCrLf)
frm.OnUnload = Replace("", "|", vbCrLf)
frm.OnClose = Replace("", "|", vbCrLf)
frm.OnActivate = Replace("", "|", vbCrLf)
frm.OnDeactivate = Replace("", "|", vbCrLf)
frm.OnGotFocus = Replace("", "|", vbCrLf)
frm.OnLostFocus = Replace("", "|", vbCrLf)
frm.OnClick = Replace("", "|", vbCrLf)
frm.OnDblClick = Replace("", "|", vbCrLf)
frm.OnMouseDown = Replace("", "|", vbCrLf)
frm.OnMouseMove = Replace("", "|", vbCrLf)
frm.OnMouseUp = Replace("", "|", vbCrLf)
frm.OnKeyDown = Replace("", "|", vbCrLf)
frm.OnKeyUp = Replace("", "|", vbCrLf)
frm.OnKeyPress = Replace("", "|", vbCrLf)
frm.KeyPreview = Replace("False", "|", vbCrLf)
frm.OnError = Replace("", "|", vbCrLf)
frm.OnFilter = Replace("", "|", vbCrLf)
frm.OnApplyFilter = Replace("", "|", vbCrLf)
frm.OnTimer = Replace("", "|", vbCrLf)
frm.TimerInterval = Replace("0", "|", vbCrLf)
frm.WindowWidth = Replace("8280", "|", vbCrLf)
frm.WindowHeight = Replace("7350", "|", vbCrLf)
frm.CurrentView = Replace("0", "|", vbCrLf)
frm.InsideHeight = Replace("6645", "|", vbCrLf)
frm.InsideWidth = Replace("7860", "|", vbCrLf)
frm.HasModule = Replace("True", "|", vbCrLf)
frm.AllowDesignChanges = Replace("True", "|", vbCrLf)
frm.Section(acDetail).Height = 4830
frm.Section(acDetail).Visible = True
frm.Width = 5886
Set ctl = Application.CreateControl(strFormName, acTextBox, 0,
"frmCaller", 1440, 495, 1500, 300)
ctl.EventProcPrefix = Replace("Text0", "|", vbCrLf)
ctl.Name = Replace("Text0", "|", vbCrLf)
ctl.ControlType = Replace("109", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.Format = Replace("", "|", vbCrLf)
ctl.DecimalPlaces = Replace("255", "|", vbCrLf)
ctl.InputMask = Replace("", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.EnterKeyBehavior = Replace("False", "|", vbCrLf)
ctl.AllowAutoCorrect = Replace("True", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.FilterLookup = Replace("1", "|", vbCrLf)
ctl.AutoTab = Replace("False", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("0", "|", vbCrLf)
ctl.ScrollBars = Replace("0", "|", vbCrLf)
ctl.CanGrow = Replace("False", "|", vbCrLf)
ctl.CanShrink = Replace("False", "|", vbCrLf)
ctl.Left = Replace("1440", "|", vbCrLf)
ctl.Top = Replace("495", "|", vbCrLf)
ctl.Width = Replace("1500", "|", vbCrLf)
ctl.Height = Replace("300", "|", vbCrLf)
ctl.BackStyle = Replace("1", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnChange = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("[Event Procedure]", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
ctl.IsHyperlink = Replace("False", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"Text0", 0, 495, 1155, 240)
ctl.EventProcPrefix = Replace("Label1", "|", vbCrLf)
ctl.Name = Replace("Label1", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Text DblClick", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("495", "|", vbCrLf)
ctl.Width = Replace("1155", "|", vbCrLf)
ctl.Height = Replace("240", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acTextBox, 0,
"frmCaller", 1485, 0, 1440, 300)
ctl.EventProcPrefix = Replace("Text2", "|", vbCrLf)
ctl.Name = Replace("Text2", "|", vbCrLf)
ctl.ControlType = Replace("109", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.Format = Replace("", "|", vbCrLf)
ctl.DecimalPlaces = Replace("255", "|", vbCrLf)
ctl.InputMask = Replace("", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.EnterKeyBehavior = Replace("False", "|", vbCrLf)
ctl.AllowAutoCorrect = Replace("True", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.FilterLookup = Replace("1", "|", vbCrLf)
ctl.AutoTab = Replace("False", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("1", "|", vbCrLf)
ctl.ScrollBars = Replace("0", "|", vbCrLf)
ctl.CanGrow = Replace("False", "|", vbCrLf)
ctl.CanShrink = Replace("False", "|", vbCrLf)
ctl.Left = Replace("1485", "|", vbCrLf)
ctl.Top = Replace("0", "|", vbCrLf)
ctl.Width = Replace("1440", "|", vbCrLf)
ctl.Height = Replace("300", "|", vbCrLf)
ctl.BackStyle = Replace("1", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnChange = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("[Event Procedure]", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
ctl.IsHyperlink = Replace("False", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"Text2", 0, 0, 1140, 240)
ctl.EventProcPrefix = Replace("Label3", "|", vbCrLf)
ctl.Name = Replace("Label3", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Text Click", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("0", "|", vbCrLf)
ctl.Width = Replace("1140", "|", vbCrLf)
ctl.Height = Replace("240", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acListBox, 0,
"frmCaller", 1701, 2340, 1230, 1170)
ctl.EventProcPrefix = Replace("List4", "|", vbCrLf)
ctl.Name = Replace("List4", "|", vbCrLf)
ctl.ControlType = Replace("110", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.RowSourceType = Replace("Value List", "|", vbCrLf)
ctl.RowSource = Replace("aaa", "|", vbCrLf)
ctl.ColumnCount = Replace("1", "|", vbCrLf)
ctl.ColumnHeads = Replace("False", "|", vbCrLf)
ctl.ColumnWidths = Replace("", "|", vbCrLf)
ctl.BoundColumn = Replace("1", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.MultiSelect = Replace("0", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("2", "|", vbCrLf)
ctl.Left = Replace("1701", "|", vbCrLf)
ctl.Top = Replace("2340", "|", vbCrLf)
ctl.Width = Replace("1230", "|", vbCrLf)
ctl.Height = Replace("1170", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("1", "|", vbCrLf)
ctl.OldBorderStyle = Replace("1", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("[Event Procedure]", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"List4", 0, 2340, 900, 240)
ctl.EventProcPrefix = Replace("Label5", "|", vbCrLf)
ctl.Name = Replace("Label5", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("List DblClick", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("2340", "|", vbCrLf)
ctl.Width = Replace("900", "|", vbCrLf)
ctl.Height = Replace("240", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acListBox, 0,
"frmCaller", 1701, 1065, 1230, 1170)
ctl.EventProcPrefix = Replace("List6", "|", vbCrLf)
ctl.Name = Replace("List6", "|", vbCrLf)
ctl.ControlType = Replace("110", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.RowSourceType = Replace("Value List", "|", vbCrLf)
ctl.RowSource = Replace("aaa", "|", vbCrLf)
ctl.ColumnCount = Replace("1", "|", vbCrLf)
ctl.ColumnHeads = Replace("False", "|", vbCrLf)
ctl.ColumnWidths = Replace("", "|", vbCrLf)
ctl.BoundColumn = Replace("1", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.MultiSelect = Replace("0", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("3", "|", vbCrLf)
ctl.Left = Replace("1701", "|", vbCrLf)
ctl.Top = Replace("1065", "|", vbCrLf)
ctl.Width = Replace("1230", "|", vbCrLf)
ctl.Height = Replace("1170", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("1", "|", vbCrLf)
ctl.OldBorderStyle = Replace("1", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("[Event Procedure]", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"List6", 0, 1065, 855, 240)
ctl.EventProcPrefix = Replace("Label7", "|", vbCrLf)
ctl.Name = Replace("Label7", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("List Click", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("1065", "|", vbCrLf)
ctl.Width = Replace("855", "|", vbCrLf)
ctl.Height = Replace("240", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3090, 45, 1260, 210)
ctl.EventProcPrefix = Replace("Label8", "|", vbCrLf)
ctl.Name = Replace("Label8", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Click Me - I work", "|", vbCrLf)
ctl.HyperlinkAddress = Replace("", "|", vbCrLf)
ctl.HyperlinkSubAddress = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("3090", "|", vbCrLf)
ctl.Top = Replace("45", "|", vbCrLf)
ctl.Width = Replace("1260", "|", vbCrLf)
ctl.Height = Replace("210", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3105, 525, 1470, 210)
ctl.EventProcPrefix = Replace("Label9", "|", vbCrLf)
ctl.Name = Replace("Label9", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("DblClick Me - I work", "|", vbCrLf)
ctl.HyperlinkAddress = Replace("", "|", vbCrLf)
ctl.HyperlinkSubAddress = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("3105", "|", vbCrLf)
ctl.Top = Replace("525", "|", vbCrLf)
ctl.Width = Replace("1470", "|", vbCrLf)
ctl.Height = Replace("210", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3030, 1035, 1740, 210)
ctl.EventProcPrefix = Replace("Label10", "|", vbCrLf)
ctl.Name = Replace("Label10", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Click Me - I DON'T work", "|", vbCrLf)
ctl.HyperlinkAddress = Replace("", "|", vbCrLf)
ctl.HyperlinkSubAddress = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("3030", "|", vbCrLf)
ctl.Top = Replace("1035", "|", vbCrLf)
ctl.Width = Replace("1740", "|", vbCrLf)
ctl.Height = Replace("210", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 3090, 2460, 1260, 210)
ctl.EventProcPrefix = Replace("Label11", "|", vbCrLf)
ctl.Name = Replace("Label11", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Click Me - I work", "|", vbCrLf)
ctl.HyperlinkAddress = Replace("", "|", vbCrLf)
ctl.HyperlinkSubAddress = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("3090", "|", vbCrLf)
ctl.Top = Replace("2460", "|", vbCrLf)
ctl.Width = Replace("1260", "|", vbCrLf)
ctl.Height = Replace("210", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"frmCaller", 510, 3945, 4365, 795)
ctl.EventProcPrefix = Replace("Label12", "|", vbCrLf)
ctl.Name = Replace("Label12", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Click/Dblclick each of these controls. |They
open a form, frmCalled. |In that form, see if you can select an entry
in the listbox or combobox.", "|", vbCrLf)
ctl.HyperlinkAddress = Replace("", "|", vbCrLf)
ctl.HyperlinkSubAddress = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("510", "|", vbCrLf)
ctl.Top = Replace("3945", "|", vbCrLf)
ctl.Width = Replace("4365", "|", vbCrLf)
ctl.Height = Replace("795", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("700", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("1", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
frm.HasModule = True
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.AddFromString Replace("Option Compare
Database|'Test ""here""|Private Sub List4_DblClick(Cancel As Integer)|
Call LoadAsClass|End Sub||Private Sub List6_Click()| Call
LoadAsClass|End Sub||Private Sub Text0_DblClick(Cancel As Integer)|
Call LoadAsClass|End Sub||Private Sub Text2_Click()| Call
LoadAsClass|End Sub||Sub LoadAsClass()| Dim frm As New
Form_frmCalled| frm.Visible = True| lib_WaitUntilWindowClosed
frm.hWnd| Beep| Set frm = Nothing|End Sub||", "|", vbCrLf)
DoCmd.Close acForm, strFormName, acSaveYes
DoCmd.Rename "frmCaller", acForm, strFormName

Set frm = Application.CreateForm()
strFormName = frm.Name
DoCmd.SelectObject acForm, strFormName
frm.RecordSource = Replace("", "|", vbCrLf)
frm.Filter = Replace("", "|", vbCrLf)
frm.FilterOn = Replace("False", "|", vbCrLf)
frm.OrderBy = Replace("", "|", vbCrLf)
frm.OrderByOn = Replace("False", "|", vbCrLf)
frm.AllowFilters = Replace("True", "|", vbCrLf)
frm.Caption = Replace("Called", "|", vbCrLf)
frm.DefaultView = Replace("0", "|", vbCrLf)
frm.ViewsAllowed = Replace("0", "|", vbCrLf)
frm.AllowEditing = Replace("True", "|", vbCrLf)
frm.DefaultEditing = Replace("2", "|", vbCrLf)
frm.AllowEdits = Replace("True", "|", vbCrLf)
frm.AllowDeletions = Replace("True", "|", vbCrLf)
frm.AllowAdditions = Replace("True", "|", vbCrLf)
frm.DataEntry = Replace("False", "|", vbCrLf)
frm.AllowUpdating = Replace("0", "|", vbCrLf)
frm.RecordsetType = Replace("0", "|", vbCrLf)
frm.RecordLocks = Replace("0", "|", vbCrLf)
frm.ScrollBars = Replace("3", "|", vbCrLf)
frm.RecordSelectors = Replace("False", "|", vbCrLf)
frm.NavigationButtons = Replace("False", "|", vbCrLf)
frm.DividingLines = Replace("True", "|", vbCrLf)
frm.AutoResize = Replace("True", "|", vbCrLf)
frm.AutoCenter = Replace("False", "|", vbCrLf)
frm.PopUp = Replace("False", "|", vbCrLf)
frm.Modal = Replace("False", "|", vbCrLf)
frm.BorderStyle = Replace("2", "|", vbCrLf)
frm.ControlBox = Replace("True", "|", vbCrLf)
frm.MinButton = Replace("True", "|", vbCrLf)
frm.MaxButton = Replace("True", "|", vbCrLf)
frm.MinMaxButtons = Replace("3", "|", vbCrLf)
frm.CloseButton = Replace("True", "|", vbCrLf)
frm.WhatsThisButton = Replace("False", "|", vbCrLf)
frm.Width = Replace("2955", "|", vbCrLf)
frm.Picture = Replace("(none)", "|", vbCrLf)
frm.PictureType = Replace("0", "|", vbCrLf)
frm.PictureSizeMode = Replace("0", "|", vbCrLf)
frm.PictureAlignment = Replace("2", "|", vbCrLf)
frm.PictureTiling = Replace("False", "|", vbCrLf)
frm.Cycle = Replace("0", "|", vbCrLf)
frm.MenuBar = Replace("", "|", vbCrLf)
frm.Toolbar = Replace("", "|", vbCrLf)
frm.ShortcutMenu = Replace("True", "|", vbCrLf)
frm.ShortcutMenuBar = Replace("", "|", vbCrLf)
frm.GridX = Replace("10", "|", vbCrLf)
frm.GridY = Replace("10", "|", vbCrLf)
frm.LayoutForPrint = Replace("False", "|", vbCrLf)
frm.FastLaserPrinting = Replace("True", "|", vbCrLf)
frm.HelpFile = Replace("", "|", vbCrLf)
frm.HelpContextId = Replace("0", "|", vbCrLf)
frm.SubdatasheetHeight = Replace("0", "|", vbCrLf)
frm.SubdatasheetExpanded = Replace("False", "|", vbCrLf)
frm.RowHeight = Replace("-1", "|", vbCrLf)
frm.DatasheetFontName = Replace("Arial", "|", vbCrLf)
frm.DatasheetFontHeight = Replace("8", "|", vbCrLf)
frm.DatasheetFontWeight = Replace("400", "|", vbCrLf)
frm.DatasheetFontItalic = Replace("False", "|", vbCrLf)
frm.DatasheetFontUnderline = Replace("False", "|", vbCrLf)
frm.DatasheetGridlinesBehavior = Replace("3", "|", vbCrLf)
frm.DatasheetGridlinesColor = Replace("12632256", "|", vbCrLf)
frm.DatasheetCellsEffect = Replace("0", "|", vbCrLf)
frm.DatasheetForeColor = Replace("0", "|", vbCrLf)
frm.ShowGrid = Replace("True", "|", vbCrLf)
frm.DatasheetBackColor = Replace("16777215", "|", vbCrLf)
frm.DatasheetBorderLineStyle = Replace("1", "|", vbCrLf)
frm.HorizontalDatasheetGridlineStyle = Replace("1", "|", vbCrLf)
frm.VerticalDatasheetGridlineStyle = Replace("1", "|", vbCrLf)
frm.DatasheetColumnHeaderUnderlineStyle = Replace("1", "|", vbCrLf)
frm.hWnd = Replace("8717598", "|", vbCrLf)
frm.Count = Replace("8", "|", vbCrLf)
frm.LogicalPageWidth = Replace("9070", "|", vbCrLf)
frm.Visible = Replace("True", "|", vbCrLf)
frm.Painting = Replace("True", "|", vbCrLf)
frm.FrozenColumns = Replace("1", "|", vbCrLf)
frm.Name = Replace("frmCalled", "|", vbCrLf)
frm.PaletteSource = Replace("(Default)", "|", vbCrLf)
frm.Tag = Replace("", "|", vbCrLf)
frm.OnCurrent = Replace("", "|", vbCrLf)
frm.BeforeInsert = Replace("", "|", vbCrLf)
frm.AfterInsert = Replace("", "|", vbCrLf)
frm.BeforeUpdate = Replace("", "|", vbCrLf)
frm.AfterUpdate = Replace("", "|", vbCrLf)
frm.OnDirty = Replace("", "|", vbCrLf)
frm.OnDelete = Replace("", "|", vbCrLf)
frm.BeforeDelConfirm = Replace("", "|", vbCrLf)
frm.AfterDelConfirm = Replace("", "|", vbCrLf)
frm.OnOpen = Replace("", "|", vbCrLf)
frm.OnLoad = Replace("", "|", vbCrLf)
frm.OnResize = Replace("", "|", vbCrLf)
frm.OnUnload = Replace("", "|", vbCrLf)
frm.OnClose = Replace("", "|", vbCrLf)
frm.OnActivate = Replace("", "|", vbCrLf)
frm.OnDeactivate = Replace("", "|", vbCrLf)
frm.OnGotFocus = Replace("", "|", vbCrLf)
frm.OnLostFocus = Replace("", "|", vbCrLf)
frm.OnClick = Replace("", "|", vbCrLf)
frm.OnDblClick = Replace("", "|", vbCrLf)
frm.OnMouseDown = Replace("", "|", vbCrLf)
frm.OnMouseMove = Replace("", "|", vbCrLf)
frm.OnMouseUp = Replace("", "|", vbCrLf)
frm.OnKeyDown = Replace("", "|", vbCrLf)
frm.OnKeyUp = Replace("", "|", vbCrLf)
frm.OnKeyPress = Replace("", "|", vbCrLf)
frm.KeyPreview = Replace("False", "|", vbCrLf)
frm.OnError = Replace("", "|", vbCrLf)
frm.OnFilter = Replace("", "|", vbCrLf)
frm.OnApplyFilter = Replace("", "|", vbCrLf)
frm.OnTimer = Replace("", "|", vbCrLf)
frm.TimerInterval = Replace("0", "|", vbCrLf)
frm.WindowWidth = Replace("7965", "|", vbCrLf)
frm.WindowHeight = Replace("4920", "|", vbCrLf)
frm.CurrentView = Replace("0", "|", vbCrLf)
frm.InsideHeight = Replace("4215", "|", vbCrLf)
frm.InsideWidth = Replace("7545", "|", vbCrLf)
frm.HasModule = Replace("True", "|", vbCrLf)
frm.AllowDesignChanges = Replace("True", "|", vbCrLf)
frm.Section(acDetail).Height = 3390
frm.Section(acDetail).Visible = True
frm.Width = 2955
Set ctl = Application.CreateControl(strFormName, acComboBox, 0,
"frmCalled", 705, 240, 1650, 255)
ctl.EventProcPrefix = Replace("Combo0", "|", vbCrLf)
ctl.Name = Replace("Combo0", "|", vbCrLf)
ctl.ControlType = Replace("111", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.Format = Replace("", "|", vbCrLf)
ctl.DecimalPlaces = Replace("255", "|", vbCrLf)
ctl.InputMask = Replace("", "|", vbCrLf)
ctl.RowSourceType = Replace("Value List", "|", vbCrLf)
ctl.RowSource = Replace("AAA;BBB", "|", vbCrLf)
ctl.ColumnCount = Replace("2", "|", vbCrLf)
ctl.ColumnHeads = Replace("False", "|", vbCrLf)
ctl.ColumnWidths = Replace("0;1440", "|", vbCrLf)
ctl.BoundColumn = Replace("1", "|", vbCrLf)
ctl.ListRows = Replace("8", "|", vbCrLf)
ctl.ListWidth = Replace("1440", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.LimitToList = Replace("True", "|", vbCrLf)
ctl.AutoExpand = Replace("True", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.AllowAutoCorrect = Replace("True", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("0", "|", vbCrLf)
ctl.Left = Replace("705", "|", vbCrLf)
ctl.Top = Replace("240", "|", vbCrLf)
ctl.Width = Replace("1650", "|", vbCrLf)
ctl.Height = Replace("255", "|", vbCrLf)
ctl.BackStyle = Replace("1", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("1", "|", vbCrLf)
ctl.OldBorderStyle = Replace("1", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnChange = Replace("", "|", vbCrLf)
ctl.OnNotInList = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.IsHyperlink = Replace("False", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"Combo0", 0, 240, 720, 240)
ctl.EventProcPrefix = Replace("Date_Label", "|", vbCrLf)
ctl.Name = Replace("Date_Label", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Combo", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("240", "|", vbCrLf)
ctl.Width = Replace("720", "|", vbCrLf)
ctl.Height = Replace("240", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acListBox, 0,
"frmCalled", 1026, 645, 1350, 975)
ctl.EventProcPrefix = Replace("List2", "|", vbCrLf)
ctl.Name = Replace("List2", "|", vbCrLf)
ctl.ControlType = Replace("110", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.RowSourceType = Replace("Value List", "|", vbCrLf)
ctl.RowSource = Replace("AAA;BBB", "|", vbCrLf)
ctl.ColumnCount = Replace("1", "|", vbCrLf)
ctl.ColumnHeads = Replace("False", "|", vbCrLf)
ctl.ColumnWidths = Replace("", "|", vbCrLf)
ctl.BoundColumn = Replace("1", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.MultiSelect = Replace("0", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("1", "|", vbCrLf)
ctl.Left = Replace("1026", "|", vbCrLf)
ctl.Top = Replace("645", "|", vbCrLf)
ctl.Width = Replace("1350", "|", vbCrLf)
ctl.Height = Replace("975", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("1", "|", vbCrLf)
ctl.OldBorderStyle = Replace("1", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"List2", 0, 645, 750, 315)
ctl.EventProcPrefix = Replace("Label11", "|", vbCrLf)
ctl.Name = Replace("Label11", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("List", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("645", "|", vbCrLf)
ctl.Width = Replace("750", "|", vbCrLf)
ctl.Height = Replace("315", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acTextBox, 0,
"frmCalled", 1065, 3015, 1320, 255)
ctl.EventProcPrefix = Replace("Text8", "|", vbCrLf)
ctl.Name = Replace("Text8", "|", vbCrLf)
ctl.ControlType = Replace("109", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.Format = Replace("", "|", vbCrLf)
ctl.DecimalPlaces = Replace("255", "|", vbCrLf)
ctl.InputMask = Replace("", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.EnterKeyBehavior = Replace("False", "|", vbCrLf)
ctl.AllowAutoCorrect = Replace("True", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.FilterLookup = Replace("1", "|", vbCrLf)
ctl.AutoTab = Replace("False", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("2", "|", vbCrLf)
ctl.ScrollBars = Replace("0", "|", vbCrLf)
ctl.CanGrow = Replace("False", "|", vbCrLf)
ctl.CanShrink = Replace("False", "|", vbCrLf)
ctl.Left = Replace("1065", "|", vbCrLf)
ctl.Top = Replace("3015", "|", vbCrLf)
ctl.Width = Replace("1320", "|", vbCrLf)
ctl.Height = Replace("255", "|", vbCrLf)
ctl.BackStyle = Replace("1", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnChange = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("[Event Procedure]", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
ctl.IsHyperlink = Replace("False", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"Text8", 0, 3015, 555, 240)
ctl.EventProcPrefix = Replace("Label9", "|", vbCrLf)
ctl.Name = Replace("Label9", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("Text8:", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("3015", "|", vbCrLf)
ctl.Width = Replace("555", "|", vbCrLf)
ctl.Height = Replace("240", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acListBox, 0,
"frmCalled", 1026, 1740, 1350, 975)
ctl.EventProcPrefix = Replace("List12", "|", vbCrLf)
ctl.Name = Replace("List12", "|", vbCrLf)
ctl.ControlType = Replace("110", "|", vbCrLf)
ctl.ControlSource = Replace("", "|", vbCrLf)
ctl.RowSourceType = Replace("Value List", "|", vbCrLf)
ctl.RowSource = Replace("AAA;BBB", "|", vbCrLf)
ctl.ColumnCount = Replace("1", "|", vbCrLf)
ctl.ColumnHeads = Replace("False", "|", vbCrLf)
ctl.ColumnWidths = Replace("", "|", vbCrLf)
ctl.BoundColumn = Replace("1", "|", vbCrLf)
ctl.DefaultValue = Replace("", "|", vbCrLf)
ctl.ValidationRule = Replace("", "|", vbCrLf)
ctl.ValidationText = Replace("", "|", vbCrLf)
ctl.StatusBarText = Replace("", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Enabled = Replace("True", "|", vbCrLf)
ctl.Locked = Replace("False", "|", vbCrLf)
ctl.MultiSelect = Replace("1", "|", vbCrLf)
ctl.TabStop = Replace("True", "|", vbCrLf)
ctl.TabIndex = Replace("3", "|", vbCrLf)
ctl.Left = Replace("1026", "|", vbCrLf)
ctl.Top = Replace("1740", "|", vbCrLf)
ctl.Width = Replace("1350", "|", vbCrLf)
ctl.Height = Replace("975", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("2", "|", vbCrLf)
ctl.BorderStyle = Replace("1", "|", vbCrLf)
ctl.OldBorderStyle = Replace("1", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ShortcutMenuBar = Replace("", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.ColumnWidth = Replace("-1", "|", vbCrLf)
ctl.ColumnOrder = Replace("0", "|", vbCrLf)
ctl.ColumnHidden = Replace("False", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.BeforeUpdate = Replace("", "|", vbCrLf)
ctl.AfterUpdate = Replace("", "|", vbCrLf)
ctl.OnEnter = Replace("", "|", vbCrLf)
ctl.OnExit = Replace("", "|", vbCrLf)
ctl.OnGotFocus = Replace("", "|", vbCrLf)
ctl.OnLostFocus = Replace("", "|", vbCrLf)
ctl.OnClick = Replace("", "|", vbCrLf)
ctl.OnDblClick = Replace("", "|", vbCrLf)
ctl.OnMouseDown = Replace("", "|", vbCrLf)
ctl.OnMouseMove = Replace("", "|", vbCrLf)
ctl.OnMouseUp = Replace("", "|", vbCrLf)
ctl.OnKeyDown = Replace("", "|", vbCrLf)
ctl.OnKeyUp = Replace("", "|", vbCrLf)
ctl.OnKeyPress = Replace("", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
Set ctl = Application.CreateControl(strFormName, acLabel, 0,
"List12", 0, 1740, 750, 315)
ctl.EventProcPrefix = Replace("Label13", "|", vbCrLf)
ctl.Name = Replace("Label13", "|", vbCrLf)
ctl.ControlType = Replace("100", "|", vbCrLf)
ctl.Caption = Replace("MultiList", "|", vbCrLf)
ctl.Visible = Replace("True", "|", vbCrLf)
ctl.DisplayWhen = Replace("0", "|", vbCrLf)
ctl.Vertical = Replace("False", "|", vbCrLf)
ctl.Left = Replace("0", "|", vbCrLf)
ctl.Top = Replace("1740", "|", vbCrLf)
ctl.Width = Replace("750", "|", vbCrLf)
ctl.Height = Replace("315", "|", vbCrLf)
ctl.BackStyle = Replace("0", "|", vbCrLf)
ctl.BackColor = Replace("16777215", "|", vbCrLf)
ctl.SpecialEffect = Replace("0", "|", vbCrLf)
ctl.BorderStyle = Replace("0", "|", vbCrLf)
ctl.OldBorderStyle = Replace("0", "|", vbCrLf)
ctl.BorderColor = Replace("0", "|", vbCrLf)
ctl.BorderWidth = Replace("0", "|", vbCrLf)
ctl.BorderLineStyle = Replace("0", "|", vbCrLf)
ctl.ForeColor = Replace("0", "|", vbCrLf)
ctl.FontName = Replace("Tahoma", "|", vbCrLf)
ctl.FontSize = Replace("8", "|", vbCrLf)
ctl.FontWeight = Replace("400", "|", vbCrLf)
ctl.FontItalic = Replace("False", "|", vbCrLf)
ctl.FontUnderline = Replace("False", "|", vbCrLf)
ctl.TextFontCharSet = Replace("0", "|", vbCrLf)
ctl.TextAlign = Replace("0", "|", vbCrLf)
ctl.FontBold = Replace("0", "|", vbCrLf)
ctl.ControlTipText = Replace("", "|", vbCrLf)
ctl.HelpContextId = Replace("0", "|", vbCrLf)
ctl.Section = Replace("0", "|", vbCrLf)
ctl.InSelection = Replace("False", "|", vbCrLf)
ctl.Tag = Replace("", "|", vbCrLf)
ctl.LeftMargin = Replace("0", "|", vbCrLf)
ctl.TopMargin = Replace("0", "|", vbCrLf)
ctl.RightMargin = Replace("0", "|", vbCrLf)
ctl.BottomMargin = Replace("0", "|", vbCrLf)
ctl.LineSpacing = Replace("0", "|", vbCrLf)
frm.HasModule = True
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.DeleteLines 1
Application.VBE.ActiveVBProject.VBComponents("Form_" &
strFormName).CodeModule.AddFromString Replace("Option Compare
Database||Private Sub Text8_Click()| Text8 = Time()|End Sub|", "|",
vbCrLf)
DoCmd.Close acForm, strFormName, acSaveYes
DoCmd.Rename "frmCalled", acForm, strFormName

Set ctl = Nothing
Set frm = Nothing

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Loading forms as classes from Listbox click events 0
Loading forms as classes from Listbox click events 0

Top