10-05-15, 05:58 AM
(آخر تعديل لهذه المشاركة : 10-05-15, 01:17 PM {2} بواسطة Ahmed_Mansoor.)
كود :
Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
Form2.Left = 300
Form2.Top = 300
SetParent Form2.hWnd, Form1.hWnd
Form2.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub