[429.xls]



' [mjSumple] のコード
'■■ スクロールバーのスクロール量を設定する ■■
'
'

Const intChgVal = 10      'スクロール量を設定する

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

End Sub



' [frmSumple] のコード

Private Sub ScrTest_Change()
    lblVal.Caption = ScrTest.Value
End Sub

Private Sub ScrTest_Scroll()
    lblVal.Caption = ScrTest.Value
End Sub