【 tulaoshi.com - 编程语言 】
                             
                            '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->