TabControl Enabled

引用參考來源
--
Dim iTotalTabs = Me.TabControl1.TabCount()
Dim X As Integer
For X = 0 To iTotalTabs - 1
    With Me.TabControl1.TabPages(X)
         .Enabled = False
         If .Name = "TabPage2" Or .Name = "TabPage4" Then
            .Enabled = True
         End If
     End With
Next