'makeanewproject;twoforms
　　'onform1acommandbutton
　　'putthecodeintherightplaces
　　'pressF5
　　
　　SubForm2_load()
　　'intheform2_loadevent
　　'besuretomaketheform2smallerthenform1!
　　lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)
　　
　　EndSub
　　
　　PrivateSubForm_Unload(CancelAsInteger)
　　'intheform2_unloadevent
　　DimlngResult&
　　
　　lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)
　　
　　EndSub
　　
　　'intheform2_generalsection
　　PrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLong
　　PrivatelngOrigParenthWnd&
　　
　　SubCommand1_click
　　form2.Show
　　
　　EndSub->