'TransparencyOcx(Transparent container)
'Like PictureBox(NOT for Set Picture),Can Put Controls on it
'Don't Remove Area() Control
change code in sub ShowAllChildArea:
'Like PictureBox(NOT for Set Picture),Can Put Controls on it
'Don't Remove Area() Control
change code in sub ShowAllChildArea:
Code:
Sub ShowAllChildArea()
Dim Obj As Control
Dim id As Long
For Each Obj In ContainedControls
id = id + 1
If id > Area.Count - 1 Then Load Area(id)
Area(id).Width = Obj.Width
Area(id).Height = Obj.Height
Area(id).Left = Obj.Left
Area(id).Top = Obj.Top
Area(id).Visible = True
Next
End Sub