Article ID: 192187
Article Last Modified on 1/8/2003
Private Sub Command1_Click()
TabStrip1.Placement = tabPlacementLeft
Debug.Print "Tab placement is", TabStrip1.Placement
Debug.Print "Tab MultiRow is", TabStrip1.MultiRow
End Sub
Private Sub Command2_Click()
TabStrip1.MultiRow = False
Debug.Print "Tab placement is", TabStrip1.Placement
Debug.Print "Tab MultiRow is", TabStrip1.MultiRow
End Sub
Private Sub Form_Load()
Dim i As Integer
' add some tabs
TabStrip1.Tabs.Add
TabStrip1.Tabs.Add
' place some long captions on the tabs
For i = 1 To TabStrip1.Tabs.Count
TabStrip1.Tabs(i).Caption = "This is a long caption number " _
& Str(i)
Next i
' set the tabs to be on top and MultiLine to False
TabStrip1.Placement = tabPlacementTop
TabStrip1.MultiRow = False
Command1.Caption = "Change Placement"
Command2.Caption = "Change MultiRow"
End Sub
Additional query words: kbDSupport kbDSD kbVBp kbVBp600 kbCtrl kbCmnCtrls
Keywords: kbprb KB192187