[441.xls]



' [mjSumple] のコード
'■■ ユーザーフォームの最初の表示位置を設定する ■■
'
'

Const intPosition = 3   '0〜3の範囲で指定

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

End Sub