SpinDown, SpinUp Events, Delay Property Example

The following example demonstrates the time interval between successive Change, SpinUp, and SpinDown events that occur when a user holds down the mouse button to change the value of a SpinButton or ScrollBar.

In this example, the user chooses a delay setting, then clicks and holds down either side of a SpinButton. The SpinUp and SpinDown events are recorded in a ListBox as they are initiated.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

A SpinButton named SpinButton1.
Two OptionButton controls named OptionButton1 and OptionButton2.
A ListBox named ListBox1.

Dim EventCount As Long Private Sub ResetControl() ListBox1.Clear EventCount = 0 SpinButton1.Value = 5000 End Sub Private Sub UserForm_Initialize() SpinButton1.Min = 0 SpinButton1.Max = 10000 ResetControl SpinButton1.Delay = 50 OptionButton1.Caption = "50 millisecond delay" OptionButton2.Caption = "250 millisecond delay" OptionButton1.Value = True End Sub Private Sub OptionButton1_Click() SpinButton1.Delay = 50 ResetControl End Sub Private Sub OptionButton2_Click() SpinButton1.Delay = 250 ResetControl End Sub Private Sub SpinButton1_SpinDown() EventCount = EventCount + 1 ListBox1.AddItem EventCount End Sub Private Sub SpinButton1_SpinUp() EventCount = EventCount + 1 ListBox1.AddItem EventCount End Sub