7 lines
156 B
Text
7 lines
156 B
Text
Declare Dynamic Library "Kernel32"
|
|
Sub SetLastError (ByVal dwErr As Long)
|
|
Function GetLastError& ()
|
|
End Declare
|
|
|
|
SetLastError 20
|
|
Print GetLastError
|