Code:
'==============================================================================
'
'  REMOAPP.BAS
'  Created with PowerBASIC for Windows Ver 7
'  by: Jim Fritts
'
'  Released for public domain 1 DEC 07
'  Designed to respond to the ATI Remote Wonder Plus thru the Winamp plugin.
'
'  After many hours of trying to create a RemoteWonder plugin, I found
'  it to be much easier to pick off the Winamp commands from the Winamp plugin
'  that comes with the remote controls install package.
'
'  Designed with the homebrew mediaplayer in mind; the functions below provide
'  the basic media commands: Play/Pause, Play next, Play last, Stop, Volume up,
'  Volume down, and Mute.
'
'  The 2 additional Click buttons are for Repeat play and Mixed play.
'
'  Simply add the functions to your app, make your apps classname "Winamp v1.x",
'  and make sure your app has the current focus. If you don't want to add these 
'  functions to your app, you could also use this dialog as a stand allow to redirect 
'  commands to your app. Each function provides a FindWindow feature and a 
'  PostMessage which can be used for this purpose.
'
'  Needless to say I don't use Winamp.
'
'==============================================================================

#COMPILE EXE
#REGISTER NONE
#DIM ALL
#DEBUG ERROR OFF
#TOOLS OFF

#RESOURCE "RemoApp.pbr"

#INCLUDE "Win32API.inc"
#INCLUDE "CommCtrl.inc"


'------------------------------------------------------------------------------
' Eliminate unnecessary macros
'------------------------------------------------------------------------------
%NOANIMATE    = 1
%NODRAGLIST   = 1
%NOHEADER     = 1
%NOIMAGELIST  = 1
%NOLISTVIEW   = 1
%NOTABCONTROL = 1
%NOTRACKBAR   = 1
%NOTREEVIEW   = 1
%NOUPDOWN     = 1





%ID_TOOLBAR           = %WM_USER       + 1024
%IDB_BUTTONS          = %ID_TOOLBAR    + 1


%IDM_PLAY             = %WM_USER       + 2001&    '// play
%IDM_PAUSE            = %WM_USER       + 2002&    '// pause
%IDM_STOP             = %WM_USER       + 2003&    '// Stop
%IDM_MUTE             = %WM_USER       + 2004&    '// mute
%IDM_UMUTE            = %WM_USER       + 2005&    '// unmute
%IDM_VUP              = %WM_USER       + 2006&    '// volume up
%IDM_VDN              = %WM_USER       + 2007&    '// volume down
%IDM_NEXT             = %WM_USER       + 2008&    '// play next
%IDM_LAST             = %WM_USER       + 2009&    '// play last
%IDM_REPEAT           = %WM_USER       + 2010&    '// repeat playback
%IDM_MIX              = %WM_USER       + 2011&    '// mixed playback

%IDM_HELP             = %WM_USER       + 2100&    '// Help
%IDM_ABOUT            = %WM_USER       + 2101&    '// About box
%IDM_CLOSE            = %WM_USER       + 2102&    '// Close
%IDM_EXIT             = %WM_USER       + 2103&    '// Exit

%IDM_STP04            = %WM_USER       + 2263&    '// STOP MEDIA
%IDM_TRK01            = %WM_USER       + 2234&    '// MEDIA PREVIOUS TRACK
%IDM_TRK02            = %WM_USER       + 2235&    '// MEDIA NEXT TRACK
%IDM_PPM01            = %WM_USER       + 2236&    '// PLAY/PAUSE MEDIA
%IDM_SEL01            = %WM_USER       + 2237&    '// select last
%IDM_SEL02            = %WM_USER       + 2238&    '// select next
%IDM_MUT01            = %WM_USER       + 2207&    '// MUTE VOLUME
%IDM_VUP01            = %WM_USER       + 2229&    '// Volume increase
%IDM_VDN01            = %WM_USER       + 2230&    '// Volume decrease



GLOBAL hInst             AS DWORD
GLOBAL hStatus           AS DWORD
GLOBAL hToolbar          AS DWORD
GLOBAL hWndMain          AS DWORD
GLOBAL ghDlgModelessMain AS DWORD

GLOBAL hwnd_YourApp      AS LONG

DECLARE FUNCTION MoveDialogForward (BYVAL hDlgX AS DWORD) AS LONG

'_________________________________________________________________

FUNCTION MoveDialogForward (BYVAL hDlgX AS DWORD) AS LONG
            SetWindowPos hDlgX, %HWND_TOPMOST, 0, 0, 0, 0, %SWP_NOMOVE OR %SWP_NOSIZE OR %SWP_SHOWWINDOW
            CALL InvalidateRect(hDlgX, BYVAL %NULL, %TRUE)
            CALL UpdateWindow(hDlgX)
END FUNCTION

'_________________________________________________________________

FUNCTION AboutProc (BYVAL hDlg AS LONG, BYVAL wMsg AS LONG, _
                    BYVAL wParam AS LONG, BYVAL lParam AS LONG) AS LONG

  SELECT CASE wMsg

      CASE %WM_INITDIALOG

      CASE %WM_DESTROY

           DIALOG END hDlg
           FUNCTION = 1

      CASE %WM_COMMAND

          SELECT CASE LOWRD(wParam)

              CASE %IDCANCEL
                  ShowWindow hWndMain, %SW_SHOW
                  EndDialog hDlg, 1
                  FUNCTION = 1

              CASE 103
                  ShowWindow hWndMain, %SW_SHOW
                  EndDialog hDlg, 1
                  FUNCTION = 1

          END SELECT
  END SELECT
END FUNCTION


'_________________________________________________________________

FUNCTION WndProc (BYVAL hWnd AS LONG, BYVAL wMsg AS LONG, _
                  BYVAL wParam AS LONG, BYVAL lParam AS LONG) EXPORT AS LONG

  LOCAL lpToolTip AS TOOLTIPTEXT PTR
  STATIC zText    AS ASCIIZ * 255
  STATIC hBmp     AS LONG

  SELECT CASE wMsg

    CASE %WM_CREATE

        DIM tbb(0 TO 10) AS TBBUTTON

        InitCommonControls

        ' Fill the TBBUTTON array with button information
        tbb(0).iBitmap   = 0
        tbb(0).idCommand = %IDM_PLAY
        tbb(0).fsState   = %TBSTATE_ENABLED
        tbb(0).fsStyle   = %TBSTYLE_BUTTON
        tbb(0).dwData    = 0
        tbb(0).iString   = 0

        tbb(1).iBitmap   = 1
        tbb(1).idCommand = %IDM_PAUSE
        tbb(1).fsState   = %TBSTATE_ENABLED
        tbb(1).fsStyle   = %TBSTYLE_BUTTON
        tbb(1).dwData    = 0
        tbb(1).iString   = 0

        tbb(2).iBitmap   = 2
        tbb(2).idCommand = %IDM_STOP
        tbb(2).fsState   = %TBSTATE_ENABLED
        tbb(2).fsStyle   = %TBSTYLE_BUTTON
        tbb(2).dwData    = 0
        tbb(2).iString   = 0

        tbb(3).iBitmap   = 3
        tbb(3).idCommand = %IDM_MUTE
        tbb(3).fsState   = %TBSTATE_ENABLED
        tbb(3).fsStyle   = %TBSTYLE_BUTTON
        tbb(3).dwData    = 0
        tbb(3).iString   = 0

        tbb(4).iBitmap   = 4
        tbb(4).idCommand = %IDM_UMUTE
        tbb(4).fsState   = %TBSTATE_ENABLED
        tbb(4).fsStyle   = %TBSTYLE_BUTTON
        tbb(4).dwData    = 0
        tbb(4).iString   = 0

        tbb(5).iBitmap   = 5
        tbb(5).idCommand = %IDM_VUP
        tbb(5).fsState   = %TBSTATE_ENABLED
        tbb(5).fsStyle   = %TBSTYLE_BUTTON
        tbb(5).dwData    = 0
        tbb(5).iString   = 0

        tbb(6).iBitmap   = 6
        tbb(6).idCommand = %IDM_VDN
        tbb(6).fsState   = %TBSTATE_ENABLED
        tbb(6).fsStyle   = %TBSTYLE_BUTTON
        tbb(6).dwData    = 0
        tbb(6).iString   = 0

        tbb(7).iBitmap   = 7
        tbb(7).idCommand = %IDM_NEXT
        tbb(7).fsState   = %TBSTATE_ENABLED
        tbb(7).fsStyle   = %TBSTYLE_BUTTON
        tbb(7).dwData    = 0
        tbb(7).iString   = 0

        tbb(8).iBitmap   = 8
        tbb(8).idCommand = %IDM_LAST
        tbb(8).fsState   = %TBSTATE_ENABLED
        tbb(8).fsStyle   = %TBSTYLE_BUTTON
        tbb(8).dwData    = 0
        tbb(8).iString   = 0

        tbb(9).iBitmap   = 9
        tbb(9).idCommand = %IDM_REPEAT
        tbb(9).fsState   = %TBSTATE_ENABLED
        tbb(9).fsStyle   = %TBSTYLE_BUTTON
        tbb(9).dwData    = 0
        tbb(9).iString   = 0

        tbb(10).iBitmap   = 10
        tbb(10).idCommand = %IDM_MIX
        tbb(10).fsState   = %TBSTATE_ENABLED
        tbb(10).fsStyle   = %TBSTYLE_BUTTON
        tbb(10).dwData    = 0
        tbb(10).iString   = 0

        ' Load the toolbar bitmap
        hBmp = LoadImage(hInst, "TOOLBAR", _
                %IMAGE_BITMAP, 0, 0, %LR_LOADMAP3DCOLORS OR %LR_DEFAULTSIZE)

        ' Create the toolbar window
        hToolbar = CreateToolbarEx(hWnd, %WS_CHILD OR %TBSTYLE_TOOLTIPS, _
                                   %ID_TOOLBAR, 21, %NULL, hBmp, _
                                   tbb(0), 11, 0, 0, 24, 24, LEN(TBBUTTON))

        ' Display the toolbar
        SendMessage hToolbar, %TB_AUTOSIZE, 0, 0
        ShowWindow hToolbar, %SW_SHOW

        ' Create the status bar window
        hStatus = CreateStatusWindow(%WS_CHILD OR %WS_BORDER OR %WS_VISIBLE OR %SBS_SIZEGRIP, _
                                     "", hWnd, 200)

    CASE %WM_NOTIFY
        lpToolTip = lParam
        IF @lpToolTip.hdr.code = %TTN_NEEDTEXT THEN
            LoadString hInst, @lpToolTip.hdr.idFrom, zText, SIZEOF(zText)
            @lpToolTip.lpszText = VARPTR(zText)
        END IF
        EXIT FUNCTION

    CASE %WM_MENUSELECT
        LoadString hInst, wParam, zText, SIZEOF(zText)
        SendMessage hStatus, %WM_SETTEXT, 0, VARPTR(zText)
        EXIT FUNCTION

    CASE %WM_SIZE
        SendMessage hStatus, wMsg, wParam, lParam
        SendMessage hToolbar, wMsg, wParam, lParam


    CASE %WM_USER

        SELECT CASE LOWRD(wParam)

            CASE 0
                SELECT CASE LOWRD(lParam)
                    CASE 102
                        MSGBOX "Play/Pause"
                        hwnd_YourApp = FindWindow("YourApp", "")
                        IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                        PostMessage(hwnd_YourApp,%WM_COMMAND, %IDM_PPM01,0)  'play/pause media
                        FUNCTION = 1
                        EXIT FUNCTION
                    CASE 122
                        MSGBOX "Mute selected"
                        hwnd_YourApp = FindWindow("YourApp", "")
                        IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                        PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_MUT01,0)  'mute/unmute
                        FUNCTION = 1
                        EXIT FUNCTION
                END SELECT

            CASE 127
                SELECT CASE LOWRD(lParam)
                    CASE 122
                        MSGBOX "Unmute selected"
                        hwnd_YourApp = FindWindow("YourApp", "")
                        IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                        PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_MUT01,0)  'mute/unmute
                        FUNCTION = 1
                        EXIT FUNCTION
                END SELECT

            CASE 1 TO 100000
                MSGBOX STR$(LOWRD(wParam)) '"something selected"
                MSGBOX STR$(LOWRD(lParam)) '"something selected"

                EXIT FUNCTION
        END SELECT



    CASE %WM_ACTIVATE

        ghDlgModelessMain = hWndMain
        ShowWindow hWndMain, %SW_RESTORE
        MoveDialogForward hWndMain
        UpdateWindow hWndMain

        FUNCTION = 1


    CASE %WM_COMMAND

        SELECT CASE LOWRD(wParam)

            CASE %IDM_EXIT
                SendMessage hWnd, %WM_DESTROY, wParam, lParam
                EXIT FUNCTION

'            CASE 1 to 100000 'test for message sent from ATI Winamp plugin
'                MSGBOX str$(LOWRD(wParam)) '"something selected"
'                EXIT FUNCTION

            CASE %IDM_PLAY, 40045
                MSGBOX "Start play"
                PostMessage(hWndMain,%WM_USER,0,102)  'start play
                EXIT FUNCTION

            CASE %IDM_PAUSE, 40046
                MSGBOX "Play/Pause media"
                hwnd_YourApp = FindWindow("YourApp", "")
                IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                PostMessage(hwnd_YourApp,%WM_COMMAND, %IDM_PPM01,0)  'play/pause media
                FUNCTION = 1
                EXIT FUNCTION

            CASE %IDM_STOP, 40047
                MSGBOX "Stop playback"
                hwnd_YourApp = FindWindow("YourApp", "")
                IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_STP04,0)  'stop
                FUNCTION = 1
                EXIT FUNCTION

            CASE %IDM_MUTE
                PostMessage(hWndMain,%WM_USER,0,122)  'set volume to 0 mute
'                MSGBOX "Mute selected"
                EXIT FUNCTION

            CASE %IDM_UMUTE
                PostMessage(hWndMain,%WM_USER,127,122)  'set volume to 127 mid range
'                MSGBOX "Unmute selected"
                EXIT FUNCTION

            CASE %IDM_VUP, 40058
                MSGBOX "Volume up"
                hwnd_YourApp = FindWindow("YourApp", "")
                IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_VUP01,0)  'volume up
                FUNCTION = 1
                EXIT FUNCTION

            CASE %IDM_VDN, 40059
                MSGBOX "Volume down"
                hwnd_YourApp = FindWindow("YourApp", "")
                IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_VDN01,0)  'volume down
                FUNCTION = 1
                EXIT FUNCTION

            CASE %IDM_NEXT, 40048
                MSGBOX "Play next track"
                hwnd_YourApp = FindWindow("YourApp", "")
                IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_TRK02,0)  'play forward
                FUNCTION = 1
                EXIT FUNCTION

            CASE %IDM_LAST, 40044
                MSGBOX "Play last track"
                hwnd_YourApp = FindWindow("YourApp", "")
                IF hwnd_YourApp = 0 THEN MSGBOX "YourApp was not found!": EXIT FUNCTION
                PostMessage(hwnd_YourApp,%WM_COMMAND,%IDM_TRK01,0)  'play back
                FUNCTION = 1
                EXIT FUNCTION

            CASE %IDM_REPEAT, 40022
                MSGBOX "Repeat Play selected"
                EXIT FUNCTION

            CASE %IDM_MIX, 40023
                MSGBOX "Mixed Play selected"
                EXIT FUNCTION


            CASE %IDM_HELP
                MSGBOX "There is no help!"
                EXIT FUNCTION

            CASE %IDM_ABOUT
                DialogBox hInst, "ABOUT", hWnd, CODEPTR(AboutProc)
                EXIT FUNCTION

            CASE %IDM_CLOSE
                MSGBOX "CLOSE selected"
                EXIT FUNCTION


        END SELECT

    CASE %WM_DESTROY
        DeleteObject hBmp
        PostQuitMessage 0
        EXIT FUNCTION

  END SELECT

  FUNCTION = DefWindowProc(hWnd, wMsg, wParam, lParam)

END FUNCTION


FUNCTION WINMAIN (BYVAL hInstance     AS LONG, _
                  BYVAL hPrevInstance AS LONG, _
                  lpCmdLine           AS ASCIIZ PTR, _
                  BYVAL iCmdShow      AS LONG) AS LONG

    LOCAL Msg         AS tagMsg
    LOCAL wce         AS WNDCLASSEX
    LOCAL szClassName AS ASCIIZ * 80
    LOCAL hMenu       AS DWORD
    LOCAL hAccel      AS DWORD

    hInst             = hInstance
    szClassName       = "Winamp v1.x" 'This must be the class name so that the WINAMP plugin will
                                      'recognize it as the winamp player.
    wce.cbSize        = SIZEOF(wce)
    wce.style         = %CS_HREDRAW OR %CS_VREDRAW
    wce.lpfnWndProc   = CODEPTR(WndProc)
    wce.hInstance     = hInstance
    wce.hIcon         = LoadIcon(hInstance, "PROGRAM")
    wce.hCursor       = LoadCursor(%NULL, BYVAL %IDC_ARROW)
    wce.hbrBackground = GetStockObject(%WHITE_BRUSH)
    wce.lpszClassName = VARPTR(szClassName )
    wce.hIconSm       = LoadIcon(hInstance, BYVAL %IDI_APPLICATION)

    RegisterClassEx wce
    hMenu = LoadMenu(hInstance, "MAINMENU")

   ' Create a window using the registered class
    hWndMain = CreateWindowEx(%WS_EX_WINDOWEDGE OR %WS_EX_TOPMOST, _                  ' extended styles
                        szClassName, _                                                ' class name
                        "ATI Remote Wonder Tester", _                                 ' caption
                        %WS_OVERLAPPEDWINDOW OR %WS_VISIBLE, _                        ' window styles
                        0, 0, _                                                       ' left, top
                        360, 110, _                                                   ' width, height
                        %NULL, hMenu, _                                               ' handle of owner, menu handle
                        hInstance, BYVAL %NULL)                                       ' handle of instance, creation parameters

    hAccel = LoadAccelerators(hInstance, "REMOAPP")

    ShowWindow hWndMain, iCmdShow

    ghDlgModelessMain = hWndMain
    UpdateWindow hWndMain
    SetWindowPos hWndMain, %HWND_TOPMOST,0,0,0,0,%SWP_NOMOVE OR %SWP_NOSIZE

    ' Message handler loop
    DO WHILE GetMessage(Msg, BYVAL %NULL, 0, 0)

        SELECT CASE Msg.message
            CASE %WM_KEYDOWN
                SELECT CASE Msg.wParam
                    CASE %VK_F5
                        SendMessage hWndMain, %WM_COMMAND, %IDM_ABOUT, 0
                END SELECT
        END SELECT

        IF ISFALSE TranslateAccelerator(hWndMain, hAccel, Msg) THEN
            TranslateMessage Msg
            DispatchMessage Msg
        END IF
    LOOP

    FUNCTION = msg.wParam

END FUNCTION  ' WinMain

The Toolbar is a skeleton type with 10 images.
Here is the resource:


Code:
// *
// * File:	RemoApp.rc
// *
// * Purpose:	Resource information for ATI Remote Wonder Plus.
// * 
// * Author:	James R. Fritts
// *
// * Copyright:	Copyright (c) 2007 MyCompany Inc.
// *
// * Released:    for public domain
// *

#include "Resource.h"


//* 
#define IDM_PLAY              WM_USER       + 2001    // play
#define IDM_PAUSE             WM_USER       + 2002    // pause
#define IDM_STOP              WM_USER       + 2003    // Stop
#define IDM_MUTE              WM_USER       + 2004    // mute
#define IDM_UMUTE             WM_USER       + 2005    // unmute
#define IDM_VUP               WM_USER       + 2006    // volume up
#define IDM_VDN               WM_USER       + 2007    // volume down
#define IDM_NEXT              WM_USER       + 2008    // play next
#define IDM_LAST              WM_USER       + 2009    // play last
#define IDM_REPEAT            WM_USER       + 2010    // repeat playback
#define IDM_MIX               WM_USER       + 2011    // mixed playback

//* 
#define IDM_HELP              WM_USER       + 2100    // Help
#define IDM_ABOUT             WM_USER       + 2101    // About box
#define IDM_CLOSE             WM_USER       + 2102    // Close
#define IDM_EXIT              WM_USER       + 2103    // Exit


PROGRAM ICON SKELETON.ICO
TOOLBAR BITMAP TOOLBAR.BMP   //10 button image

/////////////////////////////////////////////////////////////////////////////
//
// Version
//

VS_VERSION_INFO VERSIONINFO
FILEVERSION 1, 0, 0, 0
PRODUCTVERSION 1, 0, 0, 0
FILEFLAGS VS_FF_PRERELEASE
FILEOS VOS_WINDOWS32
FILETYPE VFT_APP
BEGIN
  BLOCK "StringFileInfo"
  BEGIN
    BLOCK "040904E4"
    BEGIN
            VALUE "Build Number", "0\0"
            VALUE "Comments", "Visit http://www.MyCompany.com/ for updates.\0"
            VALUE "CompanyName", "MyCompany\0"
            VALUE "FileDescription", "Winamp\0"
            VALUE "FileVersion", "1.0.0.0\0"
            VALUE "InternalName", "REMOAPP\0"
            VALUE "Language", "English(United States)\0"
            VALUE "LegalCopyright", "Copyright © 2007,  MyCompany, Inc.\0"
            VALUE "LegalTrademarks", "MyCompany and RemoApp are trademarks of MyCompany, Inc.\0"
            VALUE "OriginalFilename", "RemoApp.exe\0"
            VALUE "PrivateBuild", "PublicDomain\0"
            VALUE "ProductName", "RemoApp\0"
            VALUE "ProductVersion", "1.0.0.0\0"
            VALUE "SpecialBuild", "1.0.0, Build 0 FINAL_2007\0"
    END
  END
END

STRINGTABLE LOADONCALL MOVEABLE
  BEGIN
    IDM_PLAY,       "Play"
    IDM_PAUSE,      "Pause"
    IDM_STOP,       "Stop"
    IDM_MUTE,       "Mute"
    IDM_UMUTE,      "Unmute"
    IDM_VUP,        "Volume Up"
    IDM_VDN,        "Volume Down"
    IDM_NEXT,       "Play Next"
    IDM_LAST,       "Play Last"
    IDM_REPEAT,     "Repeat Play"
    IDM_MIX,        "Mixed Play"
    IDM_HELP,       "Help"
    IDM_ABOUT,      "About Skeleton"
    IDM_EXIT,       "Exit Winamp"
  END

MAINMENU MENU LOADONCALL MOVEABLE
  BEGIN
    POPUP "&Play Mode"
      BEGIN
        MENUITEM "&Play\tCtrl+P",                        IDM_PLAY
        MENUITEM "p&Ause\tCtrl+O",                       IDM_PAUSE
        MENUITEM "&Stop\tCtrl+S",                        IDM_STOP
        MENUITEM SEPARATOR
        MENUITEM "&Forward\tCtrl+F",                     IDM_NEXT
        MENUITEM "&Back\tCtrl+B",                        IDM_LAST
        MENUITEM SEPARATOR
        MENUITEM "&Repeat\tCtrl+R",                      IDM_REPEAT
        MENUITEM "&Mixed\tCtrl+M",                       IDM_MIX
        MENUITEM SEPARATOR
        MENUITEM "E&xit\tAlt+F4",                        IDM_EXIT
      END
    POPUP "&Volume"
      BEGIN
        MENUITEM "&Mute\tCtrl+X",                        IDM_MUTE
        MENUITEM "U&nmute\tCtrl+Z",                      IDM_UMUTE
        MENUITEM "&Up\tCtrl+U",                          IDM_VUP
        MENUITEM "&Down\tCtrl+D",                        IDM_VDN
      END
    POPUP "&Help", HELP
      BEGIN
        MENUITEM "&Help\tF1",                            IDM_HELP
        MENUITEM SEPARATOR
        MENUITEM "&About",                               IDM_ABOUT
      END
  END

REMOAPP ACCELERATORS
BEGIN
  "O",      IDM_PAUSE,      VIRTKEY, CONTROL
  "P",      IDM_PLAY,       VIRTKEY, CONTROL
  "S",      IDM_STOP,       VIRTKEY, CONTROL
  "F",      IDM_NEXT,       VIRTKEY, CONTROL
  "B",      IDM_LAST,       VIRTKEY, CONTROL
  "R",      IDM_REPEAT,     VIRTKEY, CONTROL
  "M",      IDM_MIX,        VIRTKEY, CONTROL
  "X",      IDM_MUTE,       VIRTKEY, CONTROL
  "Z",      IDM_UMUTE,      VIRTKEY, CONTROL
  "U",      IDM_VUP,        VIRTKEY, CONTROL
  "D",      IDM_VDN,        VIRTKEY, CONTROL
  "Q",      IDM_EXIT,       VIRTKEY, CONTROL
END

ABOUT DIALOG 62, 38, 192, 68
STYLE DS_MODALFRAME | DS_CENTER| WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "About RemoApp"
BEGIN
  LTEXT           "RemoApp created with PB/Win 7",   101, 48, 17, 130, 8
  LTEXT           "Copyright \251 2007 MyCompany, Inc.", 122, 48, 26, 130, 8
  PUSHBUTTON      "&OK", 103, 75, 46, 40, 14
  ICON            "PROGRAM", 104, 14, 15, 18, 20
END