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