Attribute VB_Name = "Principal" Option Explicit ' menús Public Const ARCH_NUEVO = 0 Public Const ARCH_ABRIR = 1 Public Const ARCH_GUARDAR = 2 Public Const ARCH_IMPRIMIR = 4 Public Const ARCH_SALIR = 6 Public Const EDIC_CORTAR = 0 Public Const EDIC_COPIAR = 1 Public Const EDIC_PEGAR = 2 Public Const EDIC_BUSCAR = 4 Public Const EDIC_BUSCARSGTE = 5 Public Const EDIC_REEMPLAZAR = 6 Public Const EDIC_IRA = 8 Public Const AV_VOC = 0 Public Const AV_LOC = 1 Public Const AV_CNX = 2 Public Const AV_OBJ = 3 Public Const AV_PSI = 4 Public Const AV_PROC = 5 Public Const AV_EJECUTAR = 7 Public Const AV_PASOAPASO = 8 Public Const AV_DEPURAR = 9 Public Const AV_RECURSOS = 11 Public Const AV_COMPILAR = 12 Public Const AYD_CONTENIDO = 0 Public Const AYD_ACERCADE = 2 Public Sub Main() Inicializa Load frmPrincipal frmPrincipal.bFuerzaGuardar = False frmPrincipal.WindowState = vbMaximized frmPrincipal.Show End Sub ' inicialización del programa Public Sub Inicializa() Dim sFichAyd As String sFichAyd = App.Path & "\VisualSINTAC.hlp" If ExisteFichero(sFichAyd) Then App.HelpFile = sFichAyd End If sFichAventura = "" InicializaDatosAventura sEdLetra = "Courier New" lEdTamLetra = 8 iEdAnchoTab = 4 End Sub Public Sub IrAURL(ByVal sURL As String) ShellExecute frmPrincipal.hwnd, "open", sURL, "", "", SW_SHOWNORMAL End Sub