Sub Process_Globals
'tipo de alertas
Type tpa (Alerta As Int, Confirmacion As Int, Informacion As Int, Error As Int)
End Sub
Public Sub TpAlerta As tpa
Dim x As tpa
x.Initialize
x.Alerta =1
x.Confirmacion=2
x.Informacion =3
x.Error =4
Return x
End Sub
'from other modules called
vari.TpAlerta.Alerta