TabControl关闭选项卡

关闭TabControl选项卡：
Private Sub TabControl_Main_CloseButtonClick(sender As Object, e As EventArgs) Handles TabControl_Main.CloseButtonClick
　　Dim TpA As DevExpress.XtraTab.ViewInfo.ClosePageButtonEventArgs = e
　　　　For Each P1 As DevExpress.XtraTab.XtraTabPage In TabControl_Main.TabPages
　　　　　　If P1.Text = TpA.Page.Text Then
　　　　　　　　TabControl_Main.TabPages.Remove(P1)
　　　　　　　　P1.Dispose()
　　　　　　　　Exit Sub
　　　　　　End If
　　　　Next
End Sub