SelectedIndexChanged事件
Dim nav = e.sender.basecontrolIf e.Sender.SelectedIndex > 0 Then nav.panels.Insert(0, nav.SelectedPanel) e.Sender.SelectedIndex = 0End If