获取物体最大包围框 设置物体随机颜色   确保颜色亮度足够（避免太暗）

    Do 

        r = Int(Rnd * 206) + 50  ' R: 50-255 

        g = Int(Rnd * 206) + 50  ' G: 50-255 

        b = Int(Rnd * 206) + 50  ' B: 50-255