putting spinbuttons in a worksheet

Hi,

The code below places a spinbutton on the worksheet. The linked cell = F10
This works ok.
The orientation is vertical and max is 100
However I would like to set the orientation to horizontal and the max value to 1500.

Which commands must be added for this in the macro below?
I work with Excel2000.

Your help will be appreciated.

Sub kringveld()
  With ActiveWorkbook.Sheets(1).OLEObjects.Add("Forms.SpinButton.1", , , , , , , 160, 60, 10, 20)
    .LinkedCell = "F10"
  End With
End Sub