SetMultiStringValue
Previous
Next
Sets the value of the specified key value.
Syntax: SetMultiStringValue (SubKey As String, ValueName As String, Value As String() )
If the ValueName does not exist a new value will be created.
Example:
'Add a Registry object named reg.
Sub
Globals
dim
strings(3)
As
String
End
Sub
Sub
App_Start
reg.New1
reg.RootKey(reg.rtCurrentUser)
strings(0) = "Some string 1"
strings(1) = "Some string 2"
strings(2) = "Some string 3"
reg.SetMultiStringValue("Software\My Application","Multi String Value", strings())
End Sub