Private Sub TabStrip1_DblClick(ByVal Index As Long, ByVal Cancel As MSForms.ReturnBoolean) TabStrip1.Tabs(Index).Visible = False End Sub
Private Sub Form_Load() SSTab1.Tab = 0 '启动默认打开 Tab 0 选项卡 End Sub Private Sub SSTab1_DblClick() SSTab1.Tab = 0 '双击后,关闭双击选项卡,打开 Tab 0 选项卡 End Sub