Les dejo un fragmento de código.
Public Sub TituloDelUsuario()
Dim I As Byte
Dim Ventana As Window
Dim Privilegio As String
If Usuario_root = FrmInicioSecion.Privilegio Then
Privilegio = "root"
Else
Privilegio = "limitado"
Endif
For Each Ventana In Windows
Ventana.Title = Application.Title & " ----- Usuario actual : " & FrmInicioSecion.Nombre_Usuario & " - Privilegio : " & Privilegio
Next
End
Dim I As Byte
Dim Ventana As Window
Dim Privilegio As String
If Usuario_root = FrmInicioSecion.Privilegio Then
Privilegio = "root"
Else
Privilegio = "limitado"
Endif
For Each Ventana In Windows
Ventana.Title = Application.Title & " ----- Usuario actual : " & FrmInicioSecion.Nombre_Usuario & " - Privilegio : " & Privilegio
Next
End
Lo que intento hacer es que cada vez que se abra una ventana de mi aplicación aparezca el título que corresponde a la venta mas el nombre de usuario y el privilegio que tiene. Este código funciona perfecto pero lo que quiero saber es cómo podría funcionar sin que tener que llamar esta rutina en cada Form_Open(), o sea si es posible que el proyecto realice esta función para ahorrar codificación.
Desde ya gracias.