USBDemo, something to learn USB a little bit

[Philtkp]

Hello,

First, Mister e This is an outstanding demo. Was able to get running right out of the box on a PIC18f4550.

I've been trying to add an additonal 8 LEDs to the demo but keep getting overrun errors. Which I'm sure it's caused on the VB side. I'm almost sure the PIC side is ok as i can turn on the original 8 LED or the ones added to PORTD. Can even turn on 4 on PORTB and 4 on PORTD. I'm just unable to get all 16 working at the same time.

I think my problem is in this part of the VB side code. I was hoping someone could point me back in the proper direction

Private Sub Check1_Click(index As Integer)
    '
    '   Convert PORTB check box to decimal value before sending it
    '   to USB bus.  Result is store in BufferOut(1)
    '
    Dim LoopCheck, PORTB As Byte
    PORTB = 0
    For LoopCheck = 0 to 15                                               ' 0 To 7
        PORTB = PORTB + (Check1(LoopCheck).Value * (2 ^ LoopCheck))
        Next
    BufferOut(1) = PORTB
    WriteSomeData
End Sub

Any assistance would be greatly appricated