Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
I've always thought the same thingmisscrf said:Won't the width of the label be dependent on the text in the label? That is what I have always found.
Public Function changeTab(intTab As Integer)
Me.tbCtrl1.Value = intTab - 1
depressLabel (intTab)
End Function
Public Sub depressLabel(intLabel As Integer)
Dim lblCount As Integer
Dim i As Integer
lblCount = Me.tbCtrl1.Pages.Count
For i = 1 To lblCount
With Me.Controls("lbl" & i)
'Flat and unBold
' .SpecialEffect = 2
.FontBold = False
.FontUnderline = False
.FontItalic = 0
.BorderStyle = 0
End With
Next i
With Me.Controls("lbl" & intLabel)
'Sunken Bold
'.SpecialEffect = 1
.FontBold = True
.FontUnderline = True
.FontItalic = True
End With
End Sub