[RESOLVED] Tab Stop

[kows]

To check a property, you can always do this:

Private Sub Command1_Click()
  Dim ctl As Control
  For Each ctl In Controls
    On Error Resume Next
    If ctl.TabStop = True Then MsgBox ctl.Name
  Next ctl
End Sub

Be fore warned -- this will check EVERY control on the form for a TabStop.. so, if you want to only try one type of control, dimension ctl as that type of control, so for example, for only TextBoxes:

Dim ctl as TextBox

I think this would work better for what you wanted, but I wasn't sure. It will give you a message box for each control that has a TabStop = True.

The error thing is added because not all items have a TabStop, so otherwise you'll get some "data property not found" errors.