or
Private Sub AddItem(ByVal Pi_Index As Integer)
Dim lObj_TStripElement As RadToolStripElement = New RadToolStripElement
Dim lObj_TStripItem As RadToolStripItem = New RadToolStripItem
Try
Try
lObj_TStripElement = TStripTop.Items(Pi_Index)
Catch ex As ArgumentOutOfRangeException
TStripTop.Items.Add(lObj_TStripElement)
Finally
lObj_TStripElement.Items.Add(lObj_TStripItem)
End Try
Catch ex As Exception
MessageBox.Show("An unexpected error encountered " & Environment.NewLine & ex.Message())
End Try
End Sub
Now if i call AddItem by giving it index in sequence then it implementation is fine. e.g.
call AddItem(0)
call AddItem(1)
call AddItem(2)
But if sequence of index changed then items/elements are not adding in provided sequence i.e.
AddItem(3)
AddItem(0)
AddItem(2)
AddItem(4)
AddItem(1)