Private Sub Command12_Click()

Dim mstreamContainer As Stream
Dim mstreamMixLoad As Stream
Dim index As Integer

objSolverEngine.Reset

objSolverEngine.Title = "Loading Sample Codes"
objSolverEngine.SubTitle = "Set Loading - by Ratio"

'Container Input
objSolverEngine.SetContainer typeContainer, "T11", 11840, 2260, 2200, 300, 0, 0, 0, 0, 0, RGB(255, 255, 255), 0

'Options Input
objSolverEngine.PredefinedOption = PalletIntoContainer 
objSolverEngine.CompareTypeOnItemSum = CompareNameAndSizeOnly 

'SKU Input
index = objSolverEngine.AddItem2("SKU1", 7, 1480, 1130, 1100, 10.2, SKU1.LoadDir, 0, 0, 2, 0)
objSolverEngine.SetItemAliasAt index, "alias1"
objSolverEngine.SetItemAlias2At index, "alias2"
objSolverEngine.SetItemCommentAt index, "This is comment..."
objSolverEngine.SetItemSetRatioAt index, 1
objSolverEngine.SetItemMaxLayerStringAt index, SKU1.MaxLayers
objSolverEngine.SetItemNetWeightAt index, 30

index = objSolverEngine.AddItem2("item2", 13, 2260, 1480, 1100, 10.2, dirBasic, 0, 0, 2, 0)
objSolverEngine.SetItemAliasAt index, "alias1"
objSolverEngine.SetItemAlias2At index, "alias2"
objSolverEngine.SetItemSetRatioAt index, 3

'Simulation Type Input
objSolverEngine.SimType = simSetLoadByQuantity

'Run Simulation
objSolverEngine.Run (1)

'Check the Results
If objSolverEngine.ContainerCount = 0 Then
    SolverControl1.ResultStream = objSolverEngine.GetResultBLOBStream
    MsgBox objSolverEngine.ErrorMessage
    Exit Sub
End If

'Display Results
Dim containers As IContainers
Dim container As IContainer
Set containers = objSolverEngine.containers
Set container = containers(1)

'Many ways to display results
'1. To display one container
MixLoadMaster1.PatternStream = container.GetPatternBLOBStream
'2. To display all containers in a screen
SolverControl1.ResultStream = objSolverEngine.GetResultBLOBStream

End Sub