VB6: Form Container

pAssignContainer = SetParent(lFrmPtr, lPicPtr) Call SetWindowPos(lFrmPtr, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE) End Function

Private Sub pReleaseContainer(lFrmPtr As Long, lParentPtr As Long)

SetParent lFrmPtr, lParentPtr End Sub

Private Sub oF2_MoveFocus()

Call winSetFocus(mlFocus1Ptr) End Sub

Private Sub Picture1_GotFocus()

Call winSetFocus(mlF2Ptr) End Sub

Pada event Command1_click tulis kode sebagai berikut

Private Sub Command1_Click() Set oF2 = New Form2 mlF2Ptr = oF2.hWnd pSetWinStyle mlF2Ptr mlP2Ptr = pAssignContainer(mlF2Ptr, Picture1.hWnd) oF2.Visible = True End Sub

Pada Event event Comman2_click, tulis kode sebagai berikut

Private Sub Command2_Click()

Set oF3 = New Form3 mlF2Ptr = oF3.hWnd pSetWinStyle mlF2Ptr mlP2Ptr = pAssignContainer(mlF2Ptr, Picture1.hWnd) oF3.Visible = True oF2.Visible = False Form2.Hide End Sub

Pada Form2 dan Form3, sebelum menuliskan kode sesuai dengan program yang akan dibuat, pertama-tama tulis terlebih dahulu kode sebagai berikut :

Option Explicit

Event MoveFocus()