Change Employee team to another using DI

Hi There,

I have a request from customer are they want to change Employee from team to another, i'm using SAP B1 8.81 and i was try to find all property in Object Team, i just founnd property to add employee to Team by

            Dim RetVal As Long

            Dim oTeam As SAPbobsCOM.Teams

            oTeam = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oTeams)

            oTeam.GetByKey(2)

            oTeam.TeamMembers.EmployeeID = EmpID

            oTeam.TeamMembers.RoleInTeam = SAPbobsCOM.BoRoleInTeam.borit_Member

            oTeam.TeamMembers.Add()

            oTeam.Update()

Any suggestion to remove employee from old team and move them another team by using DI, Pls help

Thanks and Best Regard.