VB API 定义坐标 将坐标单位变成像素

我现在想在下列程序的基础上，将横纵坐标单位变成像素，比如Picture1的最右边横坐标是6000，怎么办 我现在想在下列程序的基础上，将横纵坐标单位变成像素，比如Picture1的最右边横坐标是600