VB ASM

=====================================


Private Sub Form_Load()

For i = 0 To 10
MsgBox "z5"
Next i

End Sub


======================================


; ---------------------------------------------------------------------------

loc_401A80:
push ebp
mov ebp, esp
sub esp, 0Ch
push (offset loc_4010A5+1)
mov eax, large fs:0
push eax
mov large fs:0, esp
sub esp, 0BCh
push ebx
push esi
push edi
mov [ebp-0Ch], esp
mov dword ptr [ebp-8], offset dword_401090
mov eax, [ebp+8]
mov ecx, eax
and ecx, 1
mov [ebp-4], ecx
and al, 0FEh
push eax
mov [ebp+8], eax
mov edx, [eax]
call dword ptr [edx+4]
xor ebx, ebx
mov eax, 2
mov [ebp-74h], ebx
mov [ebp-84h], ebx
mov [ebp-94h], ebx
mov [ebp-74h], eax
mov [ebp-84h], eax
mov [ebp-94h], eax
lea eax, [ebp-74h]
lea ecx, [ebp-84h]
push eax
lea edx, [ebp-94h]
push ecx
lea eax, [ebp-0C4h]
push edx
lea ecx, [ebp-0B4h]
push eax
lea edx, [ebp-24h]
mov edi, 0Ah
push ecx
push edx
mov [ebp-24h], ebx
mov [ebp-34h], ebx
mov [ebp-44h], ebx
mov [ebp-54h], ebx
mov [ebp-64h], ebx
mov [ebp-0B4h], ebx
mov [ebp-0C4h], ebx
mov dword ptr [ebp-6Ch], 1
mov [ebp-7Ch], edi
mov [ebp-8Ch], ebx
call ds:__vbaVarForInit
mov esi, 80020004h


loc_401B46:
cmp eax, ebx
jz short loc_401BC2

lea edx, [ebp-74h]
lea ecx, [ebp-34h]
mov [ebp-5Ch], esi
mov [ebp-64h], edi
mov [ebp-4Ch], esi
mov [ebp-54h], edi
mov [ebp-3Ch], esi
mov [ebp-44h], edi
mov dword ptr [ebp-6Ch], offset s_Z5 ; "z5"
mov dword ptr [ebp-74h], 8
call ds:__vbaVarDup
lea eax, [ebp-64h]
lea ecx, [ebp-54h]
push eax
lea edx, [ebp-44h]
push ecx
push edx
lea eax, [ebp-34h]
push ebx
push eax
call ds:rtcMsgBox
lea ecx, [ebp-64h]
lea edx, [ebp-54h]
push ecx
lea eax, [ebp-44h]
push edx
lea ecx, [ebp-34h]
push eax
push ecx
push 4
call ds:__vbaFreeVarList
add esp, 14h
lea edx, [ebp-0C4h]
lea eax, [ebp-0B4h]
lea ecx, [ebp-24h]
push edx
push eax
push ecx
call ds:__vbaVarForNext
jmp short loc_401B46

; ---------------------------------------------------------------------------

loc_401BC2:
mov [ebp-4], ebx
push offset loc_401C0B
jmp short loc_401BE8



; ---------------------------------------------------------------------------

loc_401BE8:
lea eax, [ebp-0C4h]
lea ecx, [ebp-0B4h]
push eax
push ecx
push 2
call ds:__vbaFreeVarList
add esp, 0Ch
lea ecx, [ebp-24h]
call ds:__vbaFreeVar
retn

; ---------------------------------------------------------------------------

loc_401C0B:
mov eax, [ebp+8]
push eax
mov edx, [eax]
call dword ptr [edx+8]
mov eax, [ebp-4]
mov ecx, [ebp-14h]
pop edi
pop esi
mov large fs:0, ecx
pop ebx
mov esp, ebp
pop ebp
retn 4

; ---------------------------------------------------------------------------