Private Sub Command1_Click()
Dim src As String
src = " dim a as quad : dim i as long: for i=1 to 100000000: a=a+i : next i: Print str a: mov eax,a  :terminate "

o2_basic src
o2_exec

End Sub