Create a simple estimate?

I am new the the api and am having tons of trouble with what should be a simple process.

I want to add one NonInventorySalesItem to an EstimateItemList. Here is the process I was looking to do this:

1. Get the noninventory item with a itemsearch (complete)
2. Get estimate with transactionsearch (complete)
3. add noninventory item to estimate.Item list (trouble)
   3a. Try to convert noninventorysaleitem to a estimateitem code:

    'the noninventorysalesitem will need to be converted to a recordref            Dim SearchItemResult As NonInventorySaleItem = searchresult(0)            'create and setup record ref...          Dim ItemReference As New RecordRef          ItemReference.type = RecordType.nonInventorySaleItem          ItemReference.typeSpecified = True            'pass values from SearchItemResult          ItemReference.internalId = SearchItemResult.internalId          ItemReference.name = SearchItemResult.itemId            'create a new instance of an estimateItem...          'let's see if this works...          Dim EstItem As New EstimateItem          EstItem.isEstimate = True           EstItem.isEstimateSpecified = True            EstItem.item = ItemReference            EstItem.quantity = 1