16
Март
2011
Как поместить одну форму в другую?
Как поместить одну форму в другую?
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long Private Sub Form_Load() Form2.Show SetParent Form2.hWnd, Form1.hWnd 'выравниваем форму2 по центру Form2.Move (Form1.ScaleWidth - Form2.Width) / 2, (Form1.ScaleHeight - Form2.Height) / 2 End Sub