Using a DLL (a function in it)

[zl0h]

At the moment I'm just able to check if the dll and certain functions exist.

Option Explicit
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private hDll As Long
 
Private Sub Command1_Click()
Dim hFunction As Long
hDll = LoadLibrary(App.Path & "\WC2.dll")
 
If hDll > 0 Then
hFunction = GetProcAddress(hDll, "WA_Link_Raw_Stats")
 
If hFunction = 0 Then
MsgBox "dll: found; function: found"
Else
MsgBox "dll: found; function: not found"
End If
Else
MsgBox "dll: not found"
End If
End Sub

But what if I want to "get" 'artist', 'bitrate' etc. through that function?

In MSL I do it like
$dll(WC2.dll,WA_Link_Raw_Stats,artist)


Would be great if anyone was able to help me out.

Thank you.

[zl0h]

Anyone? =(

(sorry for bumping)