การกำหนด level ใน vb 2005 อะคับ เราสามารถกำหนด ระดับการเข้าใช้งานได้หรือเปล่าคับ

    Sub UserRight()
        Select Case UserPosition
            Case "Admin"
                'Admin + Officer
                NewProjectToolStripMenuItem.Enabled = True
                EditProjectToolStripMenuItem.Enabled = True
                'Admin + Header + Worker
                RecordProjectToolStripMenuItem.Enabled = True
                DailyRecordToolStripMenuItem.Enabled = True
                SummaryRecordToolStripMenuItem.Enabled = True
                'Admin + Office
                TeamToolStripMenuItem.Enabled = True
                'Admin + Office + Header
                ToolToolStripMenuItem1.Enabled = True
                IssueToolToolStripMenuItem.Enabled = True
                ReceiveToolToolStripMenuItem.Enabled = True
                'Admin + Office
                ToolToolStripMenuItem.Enabled = True
                CustomerToolStripMenuItem.Enabled = True
                'Admin
                UserToolStripMenuItem.Enabled = True
            Case "Officer"
                'Admin + Officer
                NewProjectToolStripMenuItem.Enabled = True
                EditProjectToolStripMenuItem.Enabled = True
                'Admin + Header + Worker
                RecordProjectToolStripMenuItem.Enabled = False
                DailyRecordToolStripMenuItem.Enabled = False
                SummaryRecordToolStripMenuItem.Enabled = False
                'Admin + Office
                TeamToolStripMenuItem.Enabled = True
                'Admin + Office + Header
                ToolToolStripMenuItem1.Enabled = True
                IssueToolToolStripMenuItem.Enabled = True
                ReceiveToolToolStripMenuItem.Enabled = True
                'Admin + Office
                ToolToolStripMenuItem.Enabled = True
                CustomerToolStripMenuItem.Enabled = True
                'Admin
                UserToolStripMenuItem.Enabled = False
            Case "Header"
                'Admin + Officer
                NewProjectToolStripMenuItem.Enabled = False
                EditProjectToolStripMenuItem.Enabled = False
                'Admin + Header + Worker
                RecordProjectToolStripMenuItem.Enabled = True
                DailyRecordToolStripMenuItem.Enabled = True
                SummaryRecordToolStripMenuItem.Enabled = True
                'Admin + Office
                TeamToolStripMenuItem.Enabled = False
                'Admin + Office + Header
                ToolToolStripMenuItem1.Enabled = True
                IssueToolToolStripMenuItem.Enabled = True
                ReceiveToolToolStripMenuItem.Enabled = True
                'Admin + Office
                ToolToolStripMenuItem.Enabled = False
                CustomerToolStripMenuItem.Enabled = False
                'Admin
                UserToolStripMenuItem.Enabled = False
            Case "Worker"
                'Admin + Officer
                NewProjectToolStripMenuItem.Enabled = False
                EditProjectToolStripMenuItem.Enabled = False
                'Admin + Header + Worker
                RecordProjectToolStripMenuItem.Enabled = True
                DailyRecordToolStripMenuItem.Enabled = True
                SummaryRecordToolStripMenuItem.Enabled = True
                'Admin + Office
                TeamToolStripMenuItem.Enabled = False
                'Admin + Office + Header
                ToolToolStripMenuItem1.Enabled = False
                IssueToolToolStripMenuItem.Enabled = False
                ReceiveToolToolStripMenuItem.Enabled = False
                'Admin + Office
                ToolToolStripMenuItem.Enabled = False
                CustomerToolStripMenuItem.Enabled = False
                'Admin
                UserToolStripMenuItem.Enabled = False
        End Select
    End Sub