My code is as follows:
VShape=vWordDoc. OlePropertyGet (" Shapes "). The OleFunction (" AddPicture WideString (strFileName), false, true, 0, 0).
VShape. OlePropertyGet (" Line "). OlePropertyGet (" ForeColor "). OlePropertySet (" RGB ", 0 x202020);
VShape. OlePropertyGet (" Line "). OlePropertySet (" Visible ", true);
The border color did not change, could you tell me should how to write?