Esa "eleccion" de menus la hago asi
Código:
Lo que quisiera es realizar ese case en una sola linea, al estilo de While myReader.Read menu = myReader("fldnombre") Select Case Trim(menu) Case "tstGestion" 'Menu para la Gestion de los usuarios y sus permisos frmInicial.tstGestion.Visible = True Case "tstListinTelefonico" frmInicial.tstListinTelefonico.Visible = True End Select End While
Código:
.el problema es que no se como resolverlo.frminicial.myreader("fldnombre").visible=true
Muchas gracias