I have no problem creating the forms, it is attaching/inserting objects
Code: Select all
' create forms
hForm = New Object[8]
For siCount = 0 To 7
With hForm[siCount] = New Form
.Name = "bForm"
.X = siCount * 50
.Y = siCount * 50
.W = 430
.H = 480
.Caption = "bCache " & Str(siCount) & " Form"
'.Show
End With
With Labelx = New Label(Me) As "Labelx"
.Y = 50
.X = 20
.W = 175
.H = 28
.Alignment = Align.Center
.Font.Bold = True
.Border = Border.Plain
.Text = "Test"
End With
Object.Attach(Labelx, hForm[siCount], "Labelx" & Str(siCount))
Next
Thank you in advance