[443.xls]



' [mjSumple] のコード
'■■ ユーザーフォームの表示サイズの拡大率を設定する ■■
'
'
Const intZoom = 110

'フォームを表示します
Sub frmSumple_Show()
           
    '表示位置の設定
    frmSumple.Zoom = intZoom
    
    'フォームの表示
    frmSumple.Show

End Sub