Public Function PaceMaker_SendCommand(hPaceMaker As Long, command As Long, _ ' Subroutine for sending a command query message to PaceMaker R = EnumWindows(AddressOf EnumWindowsProc, hPaceMaker)

' Call function 'EnumWindows' to seek for a window with title Public Function PaceMaker_SeekHandle() As Long 'Function that returns handle to PaceMaker window if found If PaceMaker_SendCommand(hwnd, PM_IDENTIFY, 0, response) 0 Then ' Found a window having title beginning with 'PaceMaker.'. If Left(sWindowTitle, 9) = 'PaceMaker' Then R = GetWindowText(hwnd, sWindowTitle, 255) Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long ' This function checks if a window being enumerated has a title beginning Public Const PM_IS_REGISTERED = WM_APP + 10 Public Const PM_ENABLE_TWEAKING = WM_APP + 3 Public Const PM_ENABLE_SHADOWMODE = WM_APP + 2 (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function PostMessage Lib 'USER32.dll' Alias 'PostMessageA' _ Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As _ Private Declare Function SendMessageTimeout Lib 'USER32.dll' Alias 'SendMessageTimeoutA' _ Private Declare Function GetWindowText Lib 'USER32.dll' Alias 'GetWindowTextA' (ByVal hwnd As Long, _īyVal lpString As String, ByVal aint As Long) As Long Private Declare Function EnumWindows Lib 'USER32.dll' (ByVal lpEnumFunc As Long, _ ' included in applications without restrinctions. This source code can be used, modified and ' PaceMaker_GetVersion(), PaceMaker_SetTempo(), PaceMaker_SetPitch() and so on. ' - Then use the handle to control the PaceMaker plug-in with routines ' - First grab handle of active PaceMaker plug-in window by calling ' Please visit for more information about ' These routines allow Visual Basic programs to control PaceMaker plug-in. ' PaceMaker plug-in message control routines I get an error that says the 'adressof'-command isnt using the right delegate type and some functions seem to be missin return commands?!? Could someone please have a look at this and maybe change it, so it works in VB.Net? I am trying to use the following code in a little VB.Net project and I just cant get it to work.

Winamp pacemaker windows 10