Dim oOrder As New SAPbobsCOM.Documents ' Order object
 
        Dim lRetCode As Integer ' Return Code
 
        ' New Order
        Set oOrder = oCompany.GetBusinessObject(SAPbobsCOM.oOrders)
 
        ' Fill Order details
        oOrder.CardCode = "C40000"
        oOrder.CardName = "Earthshaker Corporation"
        oOrder.HandWritten = SAPbobsCOM.BoYesNoEnum.tNO
        oOrder.DocDate = Now()
        oOrder.DocDueDate = Now()
        oOrder.DocCurrency = "USD"
 
        'Fill 2 lines in the order
        oOrder.Lines.ItemCode = "A00001"
        oOrder.Lines.ItemDescription = "IBM Inforprint 1312"
        oOrder.Lines.Quantity =  1 
        oOrder.Lines.Price =  380 
        oOrder.Lines.TaxCode = "0"
        oOrder.Lines.LineTotal =  380 
 
        oOrder.Lines.Add
        
        oOrder.Lines.ItemCode = "A00002"
        oOrder.Lines.ItemDescription = "IBM Infoprint 1222"
        oOrder.Lines.Quantity =  1 
        oOrder.Lines.Price =  380 
        oOrder.Lines.TaxCode = "0"
        oOrder.Lines.LineTotal =  380 
 
        ' Now we want to delete the second line in the Order
        oOrder.Lines.Delete
 
        ' The Order will be added without the second line
        lRetCode = oOrder.Add
        If lRetCode   0  Then
            oCompany.GetLastError lErrCode, sErrMsg
            MsgBox "Error ¹" & lRetCode & sErrMsg
        Else
            MsgBox "Norm"
        End If