Static FName As String

msgbox FName

 
Private Sub opendir_Click()
   Dim FName As String
FName = BrowseFolder(Caption:="Selecciona una carpeta")
If FName = vbNullString Then
    Debug.Print "No Folder Selected"
Else
    Debug.Print "Selected Folder: " & FName
End If
End Sub
 
Private Sub Check6_Click()
If Check6.Value = 1 Then
    Text6.Enabled = True
ElseIf Check6.Value = 0 Then
    Text6.Enabled = False
End If
End Sub
 
 
Private Sub english_Click()
Check6.Caption = "Reset PC after install updates."
Frame1.Caption = "Additional options"
opendir.Caption = "Open directory..."
virus.Caption = "File"
salir.Caption = "Exit"
Sobre.Caption = "About..."
Idioma.Caption = "Language"
español.Caption = "Spanish"
english.Caption = "English"
End Sub
 
Private Sub español_Click()
Check6.Caption = "Reiniciar PC después de instalar actualizaciones."
Frame1.Caption = "Opciones adicionales"
opendir.Caption = "Abrir directorio..."
virus.Caption = "Archivo"
salir.Caption = "Salir"
Sobre.Caption = "Sobre..."
Idioma.Caption = "Idioma"
español.Caption = "Español"
english.Caption = "Inglés"
End Sub
 
Private Sub salir_Click()
Unload Me
End Sub
 
Private Sub Sobre_Click()
MsgBox ("WinUpdates Installer 1.0" & vbNewLine & "" & vbNewLine & "By PiToLoKo" & vbNewLine & vbNewLine & "www.foro.elhacker.net")
End Sub
 

Private Sub Opendir_Click()
    Dim opendir As Long, Nombre As String
    Dim sFile As String
    opendir = FreeFile
       'sFile almacenará el path completo que nos interesa
       sFile = Abrir
       'Comprobamos que no sea una cadena vacia
       If sFile <> "" Then
      Savefile = FreeFile
       End If
End Sub

#include "Windows.h"
 
bool centerWindow(HWND hWnd)
{
    RECT rc;
    GetWindowRect(winHandle, &rc);
 
    int x = (GetSystemMetrics(SM_CXSCREEN) - (rc.right - rc.left))/2;
    int y = (GetSystemMetrics(SM_CYSCREEN) - (rc.bottom - rc.top))/2;
 
    return SetWindowPos(hWnd, 0, x, y, 0, 0, SWP_NOZORDER|SWP_NOSIZE);
}