The following example removes three fields from the tab sequence in the Invoice Entry window:
Private Sub Window_BeforeOpen(OpenVisible As Boolean) If UserInfoGet.UserID = "LESSONUSER2" Then Hold.TabStop = False BatchID.TabStop = False CustomerPONumber.TabStop = False End If End Sub