//MENU PRINCIPAL (LA QUE SE LLAMA LUEGO DE INICIAR SESION)
Private usuario_ing As String
Private tipo_us As String

Public Sub menu_1(tipo_usuario As String, usuario_ingresado As String)
  usuario_ing = usuario_ingresado
  tipo_us = tipo_usuario
  If tipo_us <> "Administrador" Then
    Menu_Principal.Title = "Menú del operador"
    form2.show
  Endif
End

//MENU LOGIN
Public Sub Button_Aceptar()
  Menu_Principal.Menu_1(Clave2, Clave1)
  Me.close
Endif