To add the name->value pair to a device use this function:
Public Function DeviceVSP_AddPair(ByVal dvRef As Integer, ByVal Pair As VSPair) As Boolean
hs.DeviceVSP_AddPair(ref, Pair)
Where:
ref= device reference #
Pair = The VSPair object that you want added
You can check the return value (Boolean) to determine if it was successful or not.