Dynamically load usercontrols in vb.net

 Dim lanedoors As New LaneDoors
                    lanedoors = LoadControl("~/LaneDoors.ascx")
                    lanedoors.ID = "lanedoors" & i.ToString()
                    lanedoors.Facility_Lane_ID = Convert.ToInt64(dt.Rows(i - 1)("facility_lane_ID"))
                    lanedoors.DoorNo = dt.Rows(i - 1)("door_no")
                    lanedoors.DoorName = dt.Rows(i - 1)("door_name")
                    Dim tc As New TableCell()
                    tc.Controls.Add(lanedoors)