Private Sub HScrollBar1_Scroll(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
  If e.Type <= 4 AndAlso e.OldValue = e.NewValue Then
     Console.Beep(1000, 50)
  End If
End Sub