Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
             ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
             ByVal nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, _
             ByVal lpBuffer As String) As Long
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, _
        ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

Private Sub Form_Load()
    Dim Dir As String * 255
    Dim Res As Long

    ' Información del Directorio Windows
    Res = GetWindowsDirectory(Dir, Len(Dir))
    Lbl_DirWin.Caption = Left$(Dir, Res)

    ' Información del Directorio System de Windows
    Res = GetSystemDirectory(Dir, Len(Dir))
    Lbl_DirSys.Caption = Left$(Dir, Res)

    ' Información del Directorio Temporal de Windows
    Res = GetTempPath(Len(Dir), Dir)
    Lbl_DirTmp.Caption = Left$(Dir, Res)

    ' Nombre fichero Temporal
    Res = GetTempFileName(Dir, "Tmp", 0, Dir)
    Lbl_FileTmp.Caption = Left$(Dir, Res)
End Sub