Função ObterTodasDefinições Microsoft Support
' Variant to hold 2-dimensional array returned by GetAllSettings ' Integer to hold counter. Dim MySettings As Variant, intSettings As Integer ' Place some settings in the registry. SaveSetting appname := MyApp , section := Startup , _ key := Top , setting := 75 SaveSetting MyApp , Startup , Left , 50 ' Retrieve the settings. MySettings = GetAllSettings(a...
