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