>>824
>計算式はわかりましたがScaleHeightが変わりませんー
>これってどうしてなのですか？？
あんたがなにをやってるのかなんてわかんねーよ。
どうしてなのですか？ってこっちがききてーよ。

640*480のウィンドウってウィンドウサイズが640*480Pixel?
それともクライアント領域が640*480Pixel?
それによってやり方が変わってくるぞ。

ウィンドウサイズを640*480にするなら
　　Me.Width = wx + 640 * Screen.TwipsPerPixelX
　　Me.Height = wy + 480 * Screen.TwipsPerPixelY

クライアント領域を640*480にするなら
　　Dim wx&, wy&
　　Me.ScaleMode = 1
　　wx = Me.Width - Me.ScaleWidth
　　wy = Me.Height - Me.ScaleHeight
　　Me.Width = wx + 640 * Screen.TwipsPerPixelX
　　Me.Height = wy + 480 * Screen.TwipsPerPixelY