Variable que servir para obtener el valor del nombre de la computadora, nombre usuario Windows y nombre usuario que se conecto a la unidad de red.
Private S1 As String
Funcin para obtener el nombre de usuario que se conecto a la unida de red
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Funcin que regresa el nombre de usuario de windows
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Funcin que regresa el nombre de la PC
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Variable que almacena si el registro se esta cancelando
Public Btn_cancel As Boolean
Tarifa de la agencia que se guarda cuando el ComboBox Rsvsventas pierde
el foco
Public Tarifa As Single
Variable que indica si el registro ha sido guardado
Public Reg_Saved As Boolean
Variable que indica si el registro es nuevo
Public Nnew As Boolean
variable donde se almacena la cantidad de pasajeros disponibles para el servicio y horario de la reservacin
Public ConfirmDisp As Integer
Todas las siguientes variables que tienen la palabra Inicial al final de su
nombre sirve para almacenar el valor inicial de los cuadros de texto
correspondientes y que al momento de guardar la reservacin, van a 
permitir saber si hubo algn cambio en dichos cuadros de texto; esto para
insertar en la tabla Userlog, los cambios que realizo el usuario a el registro.
Private ActividadInicial As String
Private HoraInicial As String
Private PaxAdultoInicial As Integer
Private PaxMenorInicial As Integer
Private NombreInicial As String
Private HotelInicial As String
Private HabitacionInicial As String
Private CuponInicial As String
Private NotasInicial As String
Private CanalInicial As String
Private SubCanalInicial As String
Private VendedorInicial As String
Private CausaCancelacionInicial As String
Private SolicitoCancelacionInicial As String
Private LibresInicial As Integer
Private DisponibilidadInicial As Integer
Funcin que permite esperar una cantidad determinada de milisegundos
 para que el programa inserte un registro en la tabla Userlog. Esto es para
que cada cambio que haga el usuario se almacena con diferencias de mseg. 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
