[أسامة]

فكرة فروم متطور عمل فروم مع خاصية السحب والإسقاط ماذا اقصد , اقصد عمل فروم  مع خاصية السحب والإسقاط داخل الفروم الاخر بمعنى يمكن وضع الفروم داخل الفروم الاخر و اخراجة من الفروم الاخر دون فقدان البيانات فكرت فى بعض الاكواد التى يمكن ان تساعد
لاظهار الفروم فى الفروم الاخر عند استدعاء الفروم لاول مره يمكن استخدام هذا الكود

كود :

    Dim f As New Form3 With {.TopLevel = False, .Width = 100, .Height = 100, .Location = New Point(50, 30)}
       Me.Controls.Add(f)
       f.Show()

او

كود :

   <DllImport("user32.dll", EntryPoint:="SetParent")>
   Private Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
   End Function

       Dim f As New Form3 With {.TopLevel = False, .Width = 100, .Height = 100, .Location = New Point(50, 30)}
       SetParent(f.Handle, Me.Handle)
       f.Show()

مع العلم عند اظهار او ادخال الفروم يتم توسيع الفروم الاخر بحجم مناسب لحجم الفروم الذى سيتم ادخاله 
باستخدام هذا الكود

كود :

       Me.Size = New Size(Me.Size + f.Size)

لان كيف يمكن سحب واسقاط الفروم  دون فقدان البيانات فكرت فى كود Get Mouse Location يتم تحريك الفروم مع مؤشر الفأره و عند الافلات يتم اسقاط الفروم 

كود :

Cursor.Position.X
Cursor.Position.Y
  Private Sub Form3_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
       If e.X = Cursor.Position.X And e.Y = Cursor.Position.Y Then
           Me.Location = New Point(Cursor.Position.X, Cursor.Position.Y)
       End If
   End Sub

لاكن كيف يمكن اخراج و ادخال الفروم من إطار الفروم الاخر دون فقدان البيانات!