' Get the active assembly. 
    Dim oAsmDoc As AssemblyDocument 
    oAsmDoc = ThisApplication.ActiveDocument  
	 
'Get BOM count for all types
	AQTY = ThisBOM.CalculateQuantity("Model Data", "TypeA")
	BQTY= ThisBOM.CalculateQuantity("Model Data", "TypeB")
'Calculate total number of screws for each type
	SAQTY = AQTY * A_count
	SBQTY = BQTY * B_count
'Override virtual part QTY 
	ThisBOM.OverrideQuantity("Model Data","Single",SAQTY+SBQTY)