Hi @DDALY ,

Please see below...

This one is a bit tricky.

1. The Symbol needs to be set before Strategy.
2. You need to set the Strategy = "Buy-Write".
3. You need to add the equity leg second, and the second option leg needs to have the same number as the equity leg. If you add another option leg (not shown here), it would be "3".

Hope this helps!

-Brian

Sub SendCustomEq()

  Dim myerr As Variant
  Dim rtnVal As Variant
    
  Dim hOrder As New COMPLEXORDER
  
  ' Complex options order header ---------------------------
  
  
  hOrder.SetSymbol 0, "VICI"
  hOrder.Strategy = "Buy-Write"
  hOrder.SetExchange 0, "DEM2 DMA"
  hOrder.SetPriceType 0, "Market"
  hOrder.SetTIF 0, "Day"
  hOrder.SetQuantity 0, 1

  'Leg 1 of Custom Eq  (First leg has to be option order)

  hOrder.SetSide 1, "Buy"
  hOrder.SetPosition 1, "Open"
  hOrder.SetOptType 1, "Put"
  hOrder.SetMonth 1, "Jan '23"
  hOrder.SetStrike 1, "30.00"
  hOrder.SetAccount 1, "DEMO2"

  'Leg 2 (Equity Leg)

  hOrder.SetSide 2, "Buy"
  hOrder.SetAccount 2, "DEMO2"
  
  'Leg 3 of Custom Eq

  hOrder.AddOptionLeg
  hOrder.SetSide 2, "Sell"
  hOrder.SetPosition 2, "Open"
  hOrder.SetOptType 2, "Put"
  hOrder.SetMonth 2, "Dec '21"
  hOrder.SetStrike 2, "25.00"
  hOrder.SetAccount 2, "DEMO2"

  rtnVal = hOrder.Submit(myerr)
  
  If Not rtnVal Then
    If myerr <> "" Then
      MsgBox myerr
    Else
      MsgBox "Failed - Please Contact REDI Support."
    End If
  Else
    MsgBox "Submitted"
  End If
  
End Sub

Hi @DDALY ,

We're checking on this and will come back ASAP.

-Brian

Thanks Brian, Will wait for your update. If that's not doable then I'll go with the diagonal options trade to market plus the equity leg staged.

Dermot

@brian.mullane, This is a great solution - the result is exactly the same as my manually entered order. Thanks a lot for working it out!