SHR & SHL ?

[zergiva]

Как реализовать функции SHR , SHL на VB ?:help:

[helldomain]

gm? na vb? mne pochemu-to kajetsya, chto sdwigayas na odin bit wprawo, ti delish chislo na 2 ;-))). Analogichno wlewo - umnojenie. A konkretno:
Pishesh sledujushee:

1. IntToBinStr() - konvertit chislo w stroku iz nulikow i ebenichek ;-))).
2. BinStrToInt() - toje samoe, no obratno.
3. SHR/SHL otrezajushie i dobawlyajushie nuliki.