RosettaCodeData/Task/Call-a-function-in-a-shared-library/PureBasic/call-a-function-in-a-shared-library-1.basic

if OpenLibrary(0, "USER32.DLL")
  *MessageBox = GetFunction(0, "MessageBoxA")
  CallFunctionFast(*MessageBox, 0, "Body", "Title", 0)
  CloseLibrary(0)
endif