PureBasic

; Открываем окно
OpenWindow(1,200,250,300,50,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList(WindowID(1)) ; Создаём новый список гаджетов
TextGadget(2,80,20,180,15,"Демонстрационная программа") ;Отображаем текст
 
Repeat ; Начало главного цикла Repeat-Until
 Event=WaitWindowEvent() ; Получаем текущий идентификатор события
Until Event=#PB_Event_CloseWindow ; Прерываем цикл при попытке закрыть окно (щелчёк по крестику в заголовке окна)
End ; Завершаем работу программы

CreateSprite(7,SpriteWidth(5), SpriteHeight(5))

If SpriteCollision(0, MX, MY, 4, 950, 1) = 1 ; Курсор мышки на спрайте-кнопке
       If MouseButton(#PB_MouseButton_Left)=1 ; Нажата левая кнопка мышки
       if LoadMovie(1, ProgPath+"click3.WAV") = 0 End ; Загрузка музыки    
             end ; завершение работы проги
         EndIf
              EndIf

         LoadMovie(2, ProgPath+"click3.WAV") = 0  ; Загрузка музыки

PlayFile.s=ProgPath+"click3.WAV"
PlaySound_(PlayFile, 0, #SND_FILENAME|#SND_NODEFAULT)

CatchSprite(10,?pic3)
  CatchSprite(11,?pic4)
  CreateSprite(12,SpriteWidth(2), SpriteHeight(2))
  CopySprite(10,12)

 If SpriteCollision(0, MX, MY, 12, 1, 300) = 0 ; Проверка нахождения курсора на спарйте=кнопка
         If ButtonGadget=1
           CopySprite(10,12) : ButtonGadget=0  ; Изменяем спрайт
         EndIf
       ElseIf ButtonGadget=0
         CopySprite(11,12) : ButtonGadget=1
       EndIf

If SpriteCollision(0, MX, MY, 12, 1, 300) = 1 ; Курсор мышки на спрайте-кнопке
       If MouseButton(#PB_MouseButton_Left)=1 ; Нажата левая кнопка мышки
         PlayMovie(5, ScreenID())                                          
       EndIf
     EndIf

DisplaySprite(12,1,300)

IncludeBinary
pic4:
   IncludeBinary "pic4.bmp"
   pic3:
   IncludeBinary "pic3.bmp"
EndDataSection