CB.StartMultiSimul Example

This example runs 100 simulations with rescanning. The array Median is filled with the values of the medians for each simulation in the multiple simulation.

Dim Median(50) As Double
CB.StartMultiSimul(True)
For i = 1 To 100
   CB.ResetND
   CB.Simulation 1000
   Median(i) = CB.GetForePercent(Workbooks("Futura with OptQuest.xls"). _
      Worksheets("Model").Range("C7"), 50)
Next i
CB.StopMultiSimul