Option Explicit
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
Private Sub Form_Load()
Dim Wyol As String, uz
Wyol = String(145, Chr(32))
uz = GetWindowsDirectory(Wyol, Len(Wyol))
Text1 = Left(Wyol, uz)
End Sub
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
Private Sub Form_Load()
Dim Wyol As String, uz
Wyol = String(145, Chr(32))
uz = GetWindowsDirectory(Wyol, Len(Wyol))
Text1 = Left(Wyol, uz)
End Sub