dynamic menu in VB.NET

Question

I want to write a code that creates Menus based on user Role.

Dim User_Role As String = "Admin"
Dim Menus As New Dictionary(Of String, Object) From