Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Beep()
End Sub
Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
Label1.Text = HScrollBar1.Value / 1000 & "秒に一回"
Timer1.Interval = HScrollBar1.Value
Me.Text = HScrollBar1.Value
End Sub
End Class
初心者ですいません。実験的に上記のをやってみたんですが
不思議なことにスクロールバーをいくらがんばって右に寄せても
991までしか上がりません。Maximunは1000に指定しています。
Minimunは100、Valueは1000です。
仮にMaxを800にしてみたら791が限度です。