问题出在用有符号整数去表达颜色值，颜色值是用无符号整数来表达。
颜色值没有-1的说法，RGB各为0~255（0x00~0xFF），是无符号整数类型。
而Picture1.Point(I,J)返回值定义的是24位颜色值，最大值为0xFFFFFF，即RGB各为255（0xFF），是白色的定义。
用有符号整数去表达24位的0xFFFFFF就是-1了。
ps：
 8bit有符号整数0xFF为-1
16bit有符号整数0xFFFF为-1
24bit有符号整数0xFFFFFF为-1
32bit有符号整数0xFFFFFFFF为-1
64bit有符号整数0xFFFFFFFFFFFFFFFF为-1

65535（0xFFFF）是16位值，如果说的是16位像素颜色值也不一定是白色。
看看16位像素颜色定义的数据结构

typedef struct _RGB16bit_
{
    union _RGB_
    {
        struct _RGB555_
        {
            unsigned short int N:1;
            unsigned short int B:5;
            unsigned short int G:5;
            unsigned short int R:5;
        } RGB555;
        struct _RGB565_
        {
            unsigned short int B:5;
            unsigned short int G:6;
            unsigned short int R:5;
        } RGB565;
    } RGB;
} RGB16bit, *PRGB16bit;

[此贴子已经被作者于2023-5-20 21:06编辑过]

位域都出来了

VB6 里的颜色一般就二种，一种是 RGB，各8位，最终使用 long 保存，共占4个字节。最高位不用。
   还一种就是 QBASIC颜色表，使用一个函数来得到RGB。
所以在VB6 里的函数返回颜色的函数中，一般不考虑 RGB16bit 情况。
但有一种情况例外，在控件中加载了一个 16位颜色 的图片，然后取点颜色时，就可能需要考虑是否存 RGB16bit 情况，

问题是使用了Picture控件，具体处理的是什么图片不清楚，没得测试。
重点是Picture像素的颜色数值，这与单纯的“颜色”数值是两回事。
常见的BITMAP像素位数有1、4、8、16、24或32（bit），1、4、8时用一个颜色表来描述像素的颜色，分别是2、16、256个表项，通过索引号获取颜色值；> 8 时，没有颜色表项。
像素颜色定义的数据结构

typedef struct _RGB1bit_
{
    unsigned char index0:1;
    unsigned char index1:1;
    unsigned char index2:1;
    unsigned char index3:1;
    unsigned char index4:1;
    unsigned char index5:1;
    unsigned char index6:1;
    unsigned char index7:1;
} RGB1bit, *PRGB1bit;

typedef struct _RGB4bit_
{
    unsigned char index0:4;
    unsigned char index1:4;
} RGB4bit, *PRGB4bit;

typedef struct _RGB8bit_
{
    unsigned char index;
} RGB8bit, *PRGB8bit;

typedef struct _RGB16bit_
{
    union _RGB_
    {
        struct _RGB555_
        {
            unsigned short int N:1;
            unsigned short int B:5;
            unsigned short int G:5;
            unsigned short int R:5;
        } RGB555;
        struct _RGB565_
        {
            unsigned short int B:5;
            unsigned short int G:6;
            unsigned short int R:5;
        } RGB565;
    } RGB;
} RGB16bit, *PRGB16bit;

typedef struct _RGB24bit_
{
    unsigned char B;
    unsigned char G;
    unsigned char R;
} RGB24bit, *PRGB24bit;

typedef struct _RGB32bit_
{
    unsigned char B;
    unsigned char G;
    unsigned char R;
    unsigned char A;
} RGB32bit, *PRGB32bit;

图片具体颜色值，自己编程从BMP文件读取，结合调色板，自然可以知道。或者试一下九楼得出的三个16进制数用RGB函数显示

因为我的程序遍历了Picture图片控件框的边缘，得知图片框是边缘为1像素宽的矩形框，显示了颜色值为-1