Dousbin:
USBBufferCount = USBBufferSizeRX ' RX buffer size
USBService ' keep connection alive
USBIn 1, USBBuffer, USBBufferCount, Dousbin ' read data, if available

If USBBuffer[?] = ? then
PORTA = %00000010
else
PORTA = %00000000
endif
return

I'm tried
If USBBuffer > 0 then 'If recieve anything
PORTA = %00000010
endif
but nothing hepend

My friend it programing on VB6 and he give me a small prog for sending commands for LED's(ON-OFF).


PS
Are "KBDDESCMOJA" OK?