用其自带函数Remove即可:Private Sub TabControl1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.DoubleClick Me.TabControl1.TabPages.Remove(Me.TabControl1.SelectedTab) End Sub