I have a Dell Inspiron laptop with VB6 loaded on that I use to control my model railroad. See image 121723 working:
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:
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

