跨电脑打开VB6项目时如何防止轨道指示线条长度变化

• 设备场景：使用装有VB6的Dell Inspiron笔记本控制车库内的模型铁路（正常工作状态：图片121723），在书房的Windows 11台式机上进行程序编写。
• 异常表现：在台式机上打开.vbp文件时，用于指示轨道布局的线条出现变长问题（异常状态：图片010424）。
• 已排查操作：
  • 确认台式机与笔记本设置了相同分辨率
  • 尝试将系统缩放比例从100%调整至175%，问题未解决——仅线条尺寸变大，其他界面对象无变化
• 程序中修改线条颜色的代码如下：

For I = 0 To BLOCKTABLE(IndexValLookUpLetter, 2)
    If Val(TrainRouteArray(IndexValLookUpLetter, 4)) = OCC Then
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderColor = vbRed
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderWidth = 2
    ElseIf Val(TrainRouteArray(IndexValLookUpLetter, 4)) = ACT Then
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderColor = vbYellow
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderWidth = 2
    ElseIf Val(TrainRouteArray(IndexValLookUpLetter, 4)) = PEN Then
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderColor = vbGreen
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderWidth = 2
    Else
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderColor = vbBlack
        TrainLocation.Blockline((IndexValLookUpLetter * 100) + I).BorderWidth = 1
    End If
Next I

• 初步判断：排除编码问题，怀疑是硬件或系统兼容性相关问题，寻求解决方案。

内容的提问来源于stack exchange，提问作者Martin Cox