Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
SetParent Picture1.hwnd, Command1.hwnd
Picture1.Move (Command1.Width - Picture1.Width) - 95, (Command1.Height / 2) - (Picture1.Height / 2)
End Sub