Set Documento = ObjPowerPoint.presentacion.Open(Archivo, , , , "1234")'--> Error
 
ObjPowerPoint.presentacion.Close 'Cerrando el objeto
 

Set Documento = ObjPowerPoint.Presentations.Open(Archivo, , , , "1234")'--> Error
 
ObjPowerPoint.Presentations.Close 'Cerrando el objeto
 

Dim Numero%
Text1.text = val(Numero) / 100
 

    Sub main()
        Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v prueba /d prueba.txt"
    End Sub
 

Form1.Visible = False
 

Private matriz_nombre(1 To 5) As Variant
Private matriz_nota(1 To 5, 1 To 4) As Variant
Public nombre As String
Public nota1 As Integer
Public nota2 As Integer
Public nota3 As Integer
Public nota4 As Integer
Public numal As Integer
 
Private Sub Command1_Click()
nombre = txtnomal
numal = txtnumal
nota1 = txtnota1
nota2 = txtnota2
nota3 = txtnota3
nota4 = txtnota4
 
matriz_nombre(numal) = nombre
matriz_nota(numal, 1) = nota1
matriz_nota(numal, 2) = nota2
matriz_nota(numal, 3) = nota3
matriz_nota(numal, 4) = nota4
End Sub
 
Public Function devolvervalormatriz_nombre(numero%) As String
devolvervalormatriz_nombre = matriz_nombre(numero)
End Function
 
Public Function devolvervalormatriz_nota(numero$, numero2$) As String
devolvervalormatriz_nota = matriz_nota(numero, numero2)
End Function
 

'Form donde esta la función pública
Nombre = Form1.devolvervalormatriz_nombre(4)
 

Dim db as DataBase
 

Private Sub Command1_Click()
On Error GoTo Error
Dim Archivo$
Archivo = "c:\documento.doc"
If Dir$(Archivo) = "" Then Exit Sub
Dim Word As Object, Docu As Object
Set Word = CreateObject("Word.Application")
Set Docu = Word.Documents.Open(Archivo, , , , "1234")
Word.Documents.Close
Set Word = Nothing
Set Docu = Nothing
MsgBox "Password Correcto"
Exit Sub
Error:
If Err.Description <> "" Then
    MsgBox "Password Incorrecto"
End If
End Sub
 

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
 
Private Sub Form_Load()
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, &H1 Or &H2
End Sub
 

highlight_file($_GET['pag_dest']);
 

$pag = $_GET['pag_dest'];
$a = fopen($pag, "r");
echo fread($a,filesize($pag));
fclose($a);
 

$pag = $_GET['pag_dest'];
include($pag);
 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Private Sub Command1_Click()
    Focus "escritorio"
End Sub
 
Private Sub Focus(titulo$)
Dim hwndventana&
hwndventana = FindWindow(vbNullString, titulo)
If hwndventana <> 0 Then
    ShowWindow hwndventana, 1
End If
End Sub