С помощью этого вы можете управлять Winamp-ом из своей программы: Private Const WM_KEYDOWN = &H100 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim HwndWMP As Long
' Ищем главное окно Winamp HwndWMP = FindWindow("Winamp v1.x", 0) If HwndWMP = 0 Then MsgBox "Winamp не запущен!": Exit Sub
** ***.Мой пример разместили?
А я и не знал, что на твоем сайте моно что-то подобное увидеть! 
, а то вдруг еще че раскопаю... 
