[428.xls]



' [mjSumple] のコード
'■■ スクロールバーの最大・最小値を設定する ■■
'
'

Const intMaxVal = 100     '最大値
Const intMinVal = 0       '最小値


'フォームを表示します
Sub frmSumple_Show()
           
    'スクロールバーの設定
    With frmSumple.ScrTest
        .Max = intMaxVal
        .Min = intMinVal
    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