Article ID: 193399
Article Last Modified on 5/13/2003
Dim objSaveTab As Object
With TabStrip1
Set objSaveTab = .SelectedItem
If .Placement = 3 Then
.Placement = 0
Else
.Placement = TabStrip1.Placement + 1
End If
Set .SelectedItem = objSaveTab
Debug.Print .SelectedItem
End With
Private Sub Command1_Click()
With TabStrip1
If .Placement = 3 Then
.Placement = 0
Else
.Placement = TabStrip1.Placement + 1
End If
Debug.Print .SelectedItem
End With
End Sub
Additional query words: kbDSupport kbDSD kbVBp kbVBp600bug kbVBp kbCmnCtrls kbCtrl kbTabCtrl
Keywords: kbbug KB193399