请高手相助把以下代码改写成vb代码,谢谢!!!另请教其中移位(位运算)是如何实现的

004851CC   53                     push    ebx
004851CD   56                     push    esi
004851CE   8BD8                   mov     ebx, eax* Reference to pointer to GlobalVar_004928E8
|
004851D0   8B3540194900           mov     esi, [$491940]* Reference to control TFtxt.RadioButton2 : TRadioButton
|
004851D6   8B8314030000           mov     eax, [ebx+$0314]
004851DC   8B10                   mov     edx, [eax]* Reference to method TRadioButton.GetChecked()
|
004851DE   FF92B4000000           call    dword ptr [edx+$00B4]
004851E4   3C01                   cmp     al, $01
004851E6   753A                   jnz     00485222* Reference to control TFtxt.ComboBox1 : TComboBox
|
004851E8   8B8318030000           mov     eax, [ebx+$0318]* Reference to field TComboBox.Items : TStrings
|
004851EE   8B80F0010000           mov     eax, [eax+$01F0]
004851F4   8B10                   mov     edx, [eax]* Reference to method TStrings.GetCount()
|
004851F6   FF5214                 call    dword ptr [edx+$14]
004851F9   48                     dec     eax
004851FA   7D26                   jnl     00485222* Possible String Reference to: '请输入序号 ！'
|
004851FC   B824534800             mov     eax, $00485324|
00485201   E80A94FFFF             call    0047E610* Reference to control TFtxt.ComboBox1 : TComboBox
|
00485206   8B8318030000           mov     eax, [ebx+$0318]
0048520C   8B10                   mov     edx, [eax]* Reference to method TComboBox.SetFocus()
|
0048520E   FF92B0000000           call    dword ptr [edx+$00B0]* Reference to control TFtxt.ComboBox1 : TComboBox
|
00485214   8B8318030000           mov     eax, [ebx+$0318]|
0048521A   E88D13FAFF             call    004265AC
0048521F   5E                     pop     esi
00485220   5B                     pop     ebx
00485221   C3                     ret00485222   33D2                   xor     edx, edx* Reference to control BtnBgt : TButton
|
00485224   8B83EC020000           mov     eax, [ebx+$02EC]
0048522A   8B08                   mov     ecx, [eax]* Possible reference to virtual method TButton.OFFS_5C
|
0048522C   FF515C                 call    dword ptr [ecx+$5C]
0048522F   8BCB                   mov     ecx, ebx
00485231   B201                   mov     dl, $01* Reference to class TFrmjd
|
00485233   A1204A4800             mov     eax, dword ptr [$484A20]|
00485238   E86FF4FBFF             call    004446AC
0048523D   8906                   mov     [esi], eax
0048523F   8B06                   mov     eax, [esi]* Possible String Reference to: '输出文本文件'
|
00485241   BA40534800             mov     edx, $00485340|
00485246   E86D82FAFF             call    0042D4B8
0048524B   8B06                   mov     eax, [esi]* Reference to control CheckBox1 : TCheckBox
|
0048524D   8B80D4020000           mov     eax, [eax+$02D4]* Possible String Reference to: '正在输出文本文件...'
|
00485253   BA58534800             mov     edx, $00485358|
00485258   E85B82FAFF             call    0042D4B8
0048525D   8B06                   mov     eax, [esi]|
0048525F   E82833FCFF             call    0044858C* Reference to pointer to GlobalVar_00492B6C
|
00485264   A1701A4900             mov     eax, dword ptr [$491A70]
00485269   8B00                   mov     eax, [eax]* Reference to pointer to GlobalVar_004929B4
|
0048526B   8B1564194900           mov     edx, [$491964]
00485271   8902                   mov     [edx], eax* Reference to pointer to GlobalVar_00492B70
|
00485273   A124194900             mov     eax, dword ptr [$491924]
00485278   8B00                   mov     eax, [eax]* Reference to pointer to GlobalVar_004929B8
|
0048527A   8B151C164900           mov     edx, [$49161C]
00485280   8902                   mov     [edx], eax|
00485282   E829060000             call    004858B0* Reference to pointer to GlobalVar_00492B74
|
00485287   A11C194900             mov     eax, dword ptr [$49191C]
0048528C   8B00                   mov     eax, [eax]* Reference to pointer to GlobalVar_004929B4
|
0048528E   8B1564194900           mov     edx, [$491964]
00485294   8902                   mov     [edx], eax* Reference to pointer to GlobalVar_00492B78
|
00485296   A1F8174900             mov     eax, dword ptr [$4917F8]
0048529B   8B00                   mov     eax, [eax]* Reference to pointer to GlobalVar_004929B8
|
0048529D   8B151C164900           mov     edx, [$49161C]
004852A3   8902                   mov     [edx], eax
004852A5   8B06                   mov     eax, [esi]* Reference to control Bevel2 : TBevel
|
004852A7   8B80D0020000           mov     eax, [eax+$02D0]
004852AD   33D2                   xor     edx, edx|
004852AF   E85CA5FFFF             call    0047F810|
004852B4   E8F7050000             call    004858B0* Reference to TFview instance
|
004852B9   A13C184900             mov     eax, dword ptr [$49183C]
004852BE   8B00                   mov     eax, [eax]* Reference to control TFview.Mtgim : TMenuItem
|
004852C0   8B8050030000           mov     eax, [eax+$0350]* Reference to field TMenuItem.Visible : Boolean
|
004852C6   80783200               cmp     byte ptr [eax+$32], $00
004852CA   7432                   jz      004852FE* Reference to pointer to GlobalVar_00492B7C
|
004852CC   A188184900             mov     eax, dword ptr [$491888]
004852D1   8B00                   mov     eax, [eax]* Reference to pointer to GlobalVar_004929B4
|
004852D3   8B1564194900           mov     edx, [$491964]
004852D9   8902                   mov     [edx], eax* Reference to pointer to GlobalVar_00492B80
|
004852DB   A110174900             mov     eax, dword ptr [$491710]
004852E0   8B00                   mov     eax, [eax]* Reference to pointer to GlobalVar_004929B8
|
004852E2   8B151C164900           mov     edx, [$49161C]
004852E8   8902                   mov     [edx], eax
004852EA   8B06                   mov     eax, [esi]* Reference to control Bevel2 : TBevel
|
004852EC   8B80D0020000           mov     eax, [eax+$02D0]
004852F2   33D2                   xor     edx, edx|
004852F4   E817A5FFFF             call    0047F810|
004852F9   E8B2050000             call    004858B0
004852FE   8B06                   mov     eax, [esi]|
00485300   E8CF30FCFF             call    004483D4
00485305   8B06                   mov     eax, [esi]|
00485307   E840DBF7FF             call    00402E4C
0048530C   B201                   mov     dl, $01* Reference to control BtnBgt : TButton
|
0048530E   8B83EC020000           mov     eax, [ebx+$02EC]
00485314   8B08                   mov     ecx, [eax]* Possible reference to virtual method TButton.OFFS_5C
|
00485316   FF515C                 call    dword ptr [ecx+$5C]
00485319   5E                     pop     esi
0048531A   5B                     pop     ebx
0048531B   C3                     ret