Cargar formulartio dinamico por menu

[Giufantasy]

Hola:
Resulta que tengo que cargar un menu dinamico y asu vez al momento de hacer click que se cargue el formulario perteneciente a cada menu

tengo este metodo que va cargando los formularios por cada menu
Dim dt As New DataTable
Dim da As New SqlDataAdapter
'Ejecutando procedimiento para codigos de barra.
Dim cmd As New SqlCommand
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "SP_BUSCA_FORMULARIOS_X_MENU"
cmd.Connection = SQLcnn
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@RUT", RutUsuario)
cmd.Parameters.AddWithValue("@SISTEMA", CodigoSistema)
cmd.Parameters.AddWithValue("@MENU", NombreCabecera)
cmd.ExecuteNonQuery()
da = New SqlDataAdapter(cmd)
da.Fill(dt)
Dim vlim As Short = CShort(dt.Rows.Count - 1)
Dim vposi As Short
For vposi = 0 To vlim
mnuSubOpcion = New ToolStripMenuItem(Trim(dt.Rows(vposi).Item("DESCRI PCION").ToString()))
mnuSubOpcion.Tag = Trim(dt.Rows(vposi).Item("DESCRIPCION").ToString() )
mnuSubOpcion.Image = Imagen.Images(1)
mnuSubOpcion.TextAlign = ContentAlignment.TopCenter
NombreSubmenu = Trim(dt.Rows(vposi).Item("MENU").ToString())
mnuSubOpcion.ForeColor = Color.Blue
'Añadir Opcion
menuOpcion.DropDownItems.Add(mnuSubOpcion)
Next
AddHandler mnuSubOpcion.Click, AddressOf LevantaFormulario


*******

PERO RESULTA QUE AL MOMENTO DE LLAMAR AL EVENTO 'LEVANTA FORMULARIO' SOLO LLAMA AL ULTIMO FORMULARIO, NO SE COMO HACERLO PARA QUE AL MOMENTO DE HACERLE CLICK CARGUE EL FORM ADECUADO, A LO MEJOR AL MOMENTO DE AGREGAR EL FORMULARIO SE AGREGA UN INDICE.

QUIEN ME PUEDE DECIR COMO SOLUCIONAR ESTE PROBLEMA, O COMO USAR LOS INDICES.

GRACIAS