[427.xls]



' [mjSumple] のコード
'■■ スクロールバーの高さ・幅を設定する ■■
'
'

Const intHeight = 10    'スクロールバーの高さ
Const intWidth = 150    'スクロールバーの幅


'フォームを表示します
Sub frmSumple_Show()
           
    'スクロールバーの設定
    With frmSumple.ScrTest
        .Height = intHeight
        .Width = intWidth
    End With
    
    'フォームの表示
    frmSumple.Show

End Sub