How to stop line from changing length when switching between computers

80 Views Asked by At

I have a Dell Inspiron laptop with VB6 loaded on that I use to control my model railroad. See image 121723 working:

enter image description here

My railroad is located in my garage. But I program in my house in my den. I have desktop computers running Windows 11. When I open the .VBP file, the lines used to indicate the layout track have grown. See image 010424 working:

enter image description here

I have ensured the monitor resolution is set to the laptop since this is where the VB6 project file will be running once completed. The desktop computer monitors are running the same resolution. I have tried changing the Scale from 100% to 175% but no luck. Lines have all grown in size but none of the other objects have?

Below is how I changed the line colors. BLOCKTABLE array contains how many lines make up the 33 different blocks.

The user clicking on one of the block letters A to GG uses the index value to the block letter to determine which lines to change the color of.

    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

I don't believe this is a coding issue rather than a possible hardware issue. I don't know and that is why I'm asking.

Thank you for your help

0

There are 0 best solutions below