SetParentで表示したフォームの位置がズレます (ID:102930)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 この前質問させて頂いたものです。 この前はごめんなさい。 またSetParentで解らないことがあって教えてください。 親フォームにピクチャーボックスを貼っています。 そのピクチャーボックスに子フォームをSetParentで表示しています。 親フォーム:form1 ピクチャーボックス:pic1 子フォーム:form2 private sub loadform() dim lngret as long load form2 with form2 .width=form1.pic1.scalewidth .height=form1.pic1.scaleheight .left=0 .top=0 lngret=setparent(.hwnd,form1.pic1.hwnd) if lngret<>0 then .visible=true .move 0, 0, form1.pic1.scalewidth, form1.pic1.scaleheight end with end sub private sub unloadform() if not form2 is nothing then unload form2 set form2=nothing err.clear end if end sub これで子フォームをロードしたりアンロードしたりしています。 親フォームロード時に子フォームをロードすると問題なく、left=0、top=0に表示されるんですが、子フォームをアンロードして再度ロードするとき、left=2040、top=8865に表示されて子フォームが見えなくなります。 left=0、top=0にmoveしているんですが、位置が指定どおりになりません。 解決法ないでしょうか？ vb6(sp6)、win7です。 宜しくお願いします。