Public Sub LoadLayout(parent As Object,caller As Object)
mCaller=caller
If parent Is TabPane Then
Dim t As TabPane=parent
t.LoadLayout("EmployeesList","Employees")
End If
If parent Is Form Then
Dim f As Form= parent
f.RootPane.LoadLayout("EmployeesList")
End If
FillEmployeesView
End Sub