Option Compare Database

Declare Sub Process Lib "Process.dll" (ByRef sInt As Integer, ByRef sString As MemInfo)

Type MemInfo
    sString As String * 100
End Type

Public Sub test()
    Dim sSize As Integer
    Dim sWord As MemInfo
   
    sSize = 100
    sWord.sString = "Hello: "
    Call Process (sSize , sWord )
   
    MsgBox sWord.sString
    
End Sub