The following example hides sales fields when a user opens the Salesperson Maintenance window:
Private Sub Window_AfterOpen() If UserInfoGet.UserID = "LESSONUSER1" Then CommissionedSales.Visible = False CostofSales.Visible = False NonCommissionedSales.Visible = False TotalCommissions.Visible = False End If End Sub