[435.xls]



' [mjSumple] のコード
'■■ ボタンを押し続けたときの遅延時間（値の変化速度）を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
           
   
    'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub optBtn1_Click()
    spnTest.Delay = 30
End Sub

Private Sub optBtn2_Click()
    spnTest.Delay = 180
End Sub

Private Sub spnTest_Change()
    lblView.Caption = spnTest.Value
End Sub