ThisAssembly.BeginManage()

Dim ComponentsToAdd As String() = { "LH Door Panel", "RH Door Panel", "OverPanel" }

For Each x As String In ComponentsToAdd
	
Try
	
	Dim add As Boolean = False

	
		'Doorpanels
		If DoorConfiguration <> "Single Door"
			
			If x.Contains("Door Panel")
				add = True
			End If
			
		Else If DoorConfiguration = "Single Door" And Handing = "LH is Main"
			
			If x.Contains("LH Door Panel")
				add = True
			End If
			
		End If
				
If add = True
	
	Dim componentA = Components.Add(x, x & ".ipt", position := Nothing, grounded := True, visible := True, appearance := Nothing)
	
	Else
		
		Components.Delete(x)

End If

Catch

End Try					
				
Next