title: TrackBar custom Small & Large Change on Mouse Move / Scroll Up & Down in VB.NET
body: <p>Well I'm trying something like that:</p>
  
  <pre><code>    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
      Dim scv As Int32 = TrackBar1.Value
      Dim uni As [String] = "ms"
  
      Select Case scv
          Case Is &gt; 1000
              scv = scv \ 1000
              uni = "s"
              sender.SmallChange = 1000
          Case Is &gt; 100
              sender.SmallChange = 50
          Case Is &gt; 50
              sender.SmallChange = 50
          Case Is &gt; 25
              sender.SmallChange = 25
          Case Is &gt; 10
              sender.SmallChange = 15
      End Select
  
      Label4.Text = (scv &amp; uni).ToString
  End Sub
  </code></pre>
  
  <p>But its onyl works with the arrow keys <strong>&lt;</strong> and <strong>></strong>, if I try it with the mouse move or the mouse scroll wheel, doesn't work. And... Only work if I go from Left to Right...</p>
  
  <p>What I have to do? :(</p>