This example uses the Wrap property with the UpDown control to create a wrapping spinner control with values that range from 10 to 70 and an increment of 10. To try this example, place a TextBox control and an UpDown control on your form and add the following code:
Private Sub Form_Load()
UpDown1.BuddyControl = Text1
With UpDown1
.Min = 10
.Max = 70
.Increment = 10
.Wrap = True
.SyncBuddy = True
End With
' So the TextBox reflects the starting value
Text1.Text = UpDown1.Value
End Sub