Sub SortDocumentWindows(oRadDock As RadDock)
Try
If oRadDock.DockWindows.Count <= 1 Then
Exit Sub
End If
Dim intIndex As Int16 = 0
Dim oDockWindows As System.Linq.IOrderedEnumerable(Of DockWindow) = oRadDock.DockWindows.OrderBy(Function(oDockWindow2) oDockWindow2.Text)
For Each oDockWindow In oDockWindows
oDockWindow.DockTabStrip.Controls.SetChildIndex(oDockWindow, intIndex)
intIndex += 1
Next
Catch ex As Exception
ErrorHandler.globalErrorHandler(ex, True)
End Try
End Sub