Menampilkan Form Dalam Form

DESKRIPSI
Tampilannya seperti Form MDI.
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	Fomr	2

Masukkan souce ini ke dalam Form1 :Private Sub Form_Load() Load Form2 Form2.Show End Sub Private Sub Form_Unload(Cancel As Integer) Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub

Masukkan souce ini ke dalam Form2 :Private Sub Form_Load() r = SetParent(Me.hWnd, Form1.hWnd) End Sub

Masukkan souce ini ke dalam Module :Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long