Hello all, long time - no post  . I hope everyone is well.

I am goofing around with a new screen after many years and am a bit stuck. I would like to convert the following vb code into a brain, if possible. Hopefully the code will explain itself.
SpeedLEDCnt = 6' Quantity of LEDs in row

XTopSpeed = GetParam("VelocitiesX") * 10' Not a clue why 10 is the magic #, but it works
XGran = XTopSpeed / SpeedLEDCnt

Select Case GetOEMDRO(806)' X Vel DRO
Case 0 ' Not moving. Turn all off
SetUserLED(1001,0)
SetUserLED(1002,0)
SetUserLED(1003,0)
SetUserLED(1004,0)
SetUserLED(1005,0)
SetUserLED(1006,0)
Case 1 To XGran ' Speed range 1 of 6
SetUserLED(1001,1)
SetUserLED(1002,0)
SetUserLED(1003,0)
SetUserLED(1004,0)
SetUserLED(1005,0)
SetUserLED(1006,0)
Case XGran + 1 To XGran * 2 ' Speed range 2 of 6
SetUserLED(1001,1)
SetUserLED(1002,1)
SetUserLED(1003,0)
SetUserLED(1004,0)
SetUserLED(1005,0)
SetUserLED(1006,0)
Case  (XGran * 2) + 1 To XGran * 3 ' Speed range 3 of 6
SetUserLED(1001,1)
SetUserLED(1002,1)
SetUserLED(1003,1)
SetUserLED(1004,0)
SetUserLED(1005,0)
SetUserLED(1006,0)
Case  (XGran * 3) + 1 To XGran * 4 ' Speed range 4 of 6
SetUserLED(1001,1)
SetUserLED(1002,1)
SetUserLED(1003,1)
SetUserLED(1004,1)
SetUserLED(1005,0)
SetUserLED(1006,0)
Case  (XGran * 4) + 1 To XGran * 5 ' Speed range 5 of 6
SetUserLED(1001,1)
SetUserLED(1002,1)
SetUserLED(1003,1)
SetUserLED(1004,1)
SetUserLED(1005,1)
SetUserLED(1006,0)
Case  Else ' Top speed range
SetUserLED(1001,1)
SetUserLED(1002,1)
SetUserLED(1003,1)
SetUserLED(1004,1)
SetUserLED(1005,1)
SetUserLED(1006,1)
End Select

Any assistance or advice would be welcome. Thanks guys.
Chris