开云体育

Here's one example...

Sub Form_Load()
UpDown1.Increment = 1
UpDown1.Min = 1
UpDown1.Max = 10
End Sub

Private Sub UpDown1_Change()
txtContracts.Text = UpDown1.value
End Sub

Then, to put that value in your buy order, don't forget to convert it
to a number...
val(txtContracts.Text)

For my own programs I would make it a label instead of a text box,
which would only allow the UpDown buttons to change the value,
instead of allowing a number to be typed in by the user. Then you
could place code in the UpDown1_Change, like making sure the user has
available capital for the number selected, etc.

Brian