Part | Description | |
object | Required. A valid object. | |
Boolean | Optional. Whether the object is a tab stop. |
Value | Description | |
True | Designates the object as a tab stop (default). | |
False | Bypasses the object when the user is tabbing, although the object still holds its place in the actual tab order, as determined by the TabIndex property. |
Private Sub CommandButton1_Click()
MsgBox "Clicked CommandButton1."
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
CommandButton1.TabStop = True
ToggleButton1.Caption = "TabStop On"
Else
CommandButton1.TabStop = False
ToggleButton1.Caption = "TabStop Off"
End If
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Show Message"
ToggleButton1.Caption = "TabStop On"
ToggleButton1.Value = True
ToggleButton1.Width = 90
End Sub