Public Overrides Sub OnPositionTrade(ByVal trade As RightEdge.Common.Trade, ByVal pos As RightEdge.Common.Position, ByVal state As RightEdge.Common.Position.State)

MyBase.OnPositionTrade(trade, pos, state)

Dim OnePoint As Double = pos.Symbol.SymbolInformation.TickSize

Dim LongProfitTarget As Double = trade.Price + (3 * OnePoint)

Dim LongStopLevel As Double = trade.Price - (3 * OnePoint)

'Set Profit Target

If pos.PositionType = PositionType.Long And state = Position.State.Open Then

PositionManager.SetProfitTarget(pos.PosID, LongProfitTarget, False)

End If

'Set Stop Loss

If pos.PositionType = PositionType.Long And state = Position.State.Open Then

PositionManager.SetStopLoss(pos.PosID, LongStopLevel, False)

End If

End Sub

Thanks,
Daniel