"-Begin-----------------------------------------------------------------

Constants:
  IDYes Type i Value 6,
  IDNo Type i Value 7.

Data:
  Win32 Type OLE2_OBJECT,
  ret Type i.

Create Object Win32 'DynamicWrapperX'.

Call Method Of Win32 'Register'
  Exporting
    #1 = 'user32.dll'
    #2 = 'MessageBoxW'
    #3 = 'i=hwwu'
    #4 = 'r=l'.

Call Method Of Win32 'MessageBoxW' = ret
  Exporting
    #1 = 0
    #2 = 'Hello World'
    #3 = 'Test'
    #4 = 4.

If ret = IDYes.
  Write 'Ja'.
ElseIf ret = IDNo.
  Write 'Nein'.
Else.
  Write '?'.
EndIf.

Free Object Win32.

"-End-------------------------------------------------------------------