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

名前

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

本文 ごめんなさい。 end ifが抜けていました。 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 if end with end sub