codice:
Function CallOIA()

areaoia$ = Space(103)
Func% = HA_COPY_OIA
STRNLEN% = Len(areaoia$)
dummy% = callapi(Func%, areaoia$, STRNLEN%, rc%)

If rc% <> 0 Then
    MsgBox "Possibile Errore HOST l'applicazione verra' terminata ", vbCritical
    'LOG "### Errore copiatura OIA n°- " & rc%
Else
    'LOG "Copiatura OIA ok"
End If

End Function

Global Const HA_COPY_OIA = 13   'Copy OIA function
Se manca qualcosa fammi sapere