Guest User

Untitled

a guest
Nov 21st, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. enum My_Enum {
  2. enum1 = 0,
  3. enum2 = !0,
  4. };
  5. typedef enum My_Enum My_Enum;
  6.  
  7. My_Enum myFunction(int arg);
  8.  
  9. Declare Function dll_myFunction Lib "C:link_to_my_dll.dll" _
  10. Alias "myFunction" (ByVal arg As Long) As Long
  11.  
  12. Private Sub Try_Calling()
  13. Dim myArg As Long
  14. myArg = 150
  15. dll_myFunction myArg
  16. End Sub
Add Comment
Please, Sign In to add comment