load form inside picturebox

gistfile1.txt

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
    Call tutupsemua
    Form2.Show
    SetParent Form2.hWnd, Picture1.hWnd ' You could also substitute a Frame for the picturebox
    Form2.Move 0, 0
End Sub
Private Sub tutupsemua()
    Unload Form2
    Unload Form3
End Sub

Private Sub Command2_Click()
    Call tutupsemua
    Form3.Show
    SetParent Form3.hWnd, Picture1.hWnd ' You could also substitute a Frame for the picturebox
    Form3.Move 0, 0
End Sub

open form inside picture box