[RESOLVED] PictureBox As Container At Run Time.

Thanks for help bro,
can u please try this code?
text1 is going out of the Picture when i dragg it by pressing the Right Click.

Private Sub Command2_Click()
Dim Index As Integer

' Create the control.
Index = Text1.Count
Load Text1(Index)

' Reparent the control so it's inside
' the inner PictureBox.
' SetParent Text1(index).hWnd, picInner.hWnd

' Martijn Coppoolse <vbhelper.com@martijn.coppoolse.com>
' pointed out that setting the Container is
' easier than reparenting.
Set Text1(Index).Container = picInner

' Position the control.
Text1(Index).Top = Text1(Index - 1).Top + _
Text1(Index - 1).Height + 30
Text1(Index).Text = "Text1(" & Format$(Index) & ")"

' Size picInner to hold the control.
picInner.Move 0, 0, _
Text1(Index).Left + Text1(Index).Width + 120, _
Text1(Index).Top + Text1(Index).Height + 120

' Display the control.
Text1(Index).Visible = True

' Rearrange the scroll bars.
'ArrangeScrollBars

End Sub

Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Module1.StoreX = X
Module1.StoreY = Y
End Sub

Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button > 1 Then
Text1(Index).Left = Text1(Index).Left + X - Module1.StoreX
Text1(Index).Top = Text1(Index).Top + Y - Module1.StoreY
End If
End Sub

Come to think about it, this one wors even smoother:

Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim xmax%, ymax%, newx%, newy%
If Button > 1 Then
'determine maxima, minima are 0
xmax = picinner.Width - Text1(Index).Width - 1
ymax = picinner.Height - Text1(Index).Height - 1

'determine new expected position
newx = Text1(Index).Left + X - Module1.StoreX
newy = Text1(Index).Top + Y - Module1.StoreY

'clip the x and y values to its limits
If newx < 0 Then newx = 0 Else If newx > xmax Then newx = xmax
If newy < 0 Then newy = 0 Else If newy > ymax Then newy = ymax

Text1(Index).Left = newx
Text1(Index).Top = newy

End If
End Sub