BCB代码翻译成VB代码

[xhggg]

for(LeftStep=0;LeftStep<8;LeftStep++)
{
temp=Bit[iBit]&Dragon1RData[k1++];
temp=temp>>iBit;
temp=temp<<LeftStep;

DragonSendData[SendDataNum]|=temp;
}