Creating a form on the fly..Label position not sticking

[Kristin in CT]

I have this code working fine when i run it with the debugger on or if i add a prompt after the creation of the label. I've tried a few different pieces of code and have see other code snippets that appear to do exactly what i'm doing but in some cases my TOP and left properties do not stick. Any ideas would be greatly appreciated. Here's a sample of what the code looks like...

for i = 1 to 24

Set NewLabel = TempForm.Designer.Controls.Add("forms.label.1")
extraLines = extraLines * 12

With NewLabel
.WordWrap = False
If extraLines > 0 Then .WordWrap = True
.Caption = i & ". " & SurveyQsht.Cells(2, i + 1)
.Height = 24 + extraLines
.Width = lblLen
.AutoSize = True
.Font.Name = "Verdana"
.Font.size = 10
.ForeColor = vbBlue
.Top = ctrlTopPos
.Left = 26
' MsgBox NewLabel.Top
End With
ctrlTopPos = ctrlTopPos +26
next i

 

[SydneyGeek]

Good to hear it worked out. So... position before format, it seems?

Denis

 

[Kristin in CT]

I think the rule of thumb for me will be position & size before format.
I also noticed similar issues when the listbox was the last control...


With NewLstBox
' .ListStyle = fmListStyleOption 'top not set Properly
.Top = ctrlTopPos
.Left = 36
' .ListStyle = fmListStyleOption ' height is not set correctly
.Height = 32
' .ListStyle = fmListStyleOption ' width is not set correctly
.Width = optwidth
.ListStyle = fmListStyleOption ' all position & size set correctly
.Name = "Q_" & i
tName = "Q_" & i
.Font.Name = "verdana"
.Font.size = 10
.MultiSelect = fmMultiSelectMulti
.Width = optwidth
.Height = 32

Thanks for your help. Half the battle sometimes is setting aside the frustration and talking through the problem with someone. Thank you!

 

[SydneyGeek]

You're welcome

Denis