'================================================================
'= システム定義のサウンドを再生
'=    (MessageBeep.bas)
'================================================================
#include "Windows.bi"

#define MB_OK &H0                       '一般の警告音
#define MB_ICONHAND &H10                'システムエラー
#define MB_ICONQUESTION &H20            'メッセージ（問合わせ）
#define MB_ICONEXCLAMATION &H30         'メッセージ（警告）
#define MB_ICONASTERISK &H40            'メッセージ（情報）

' ウェーブフォームサウンドを再生する
Declare Function Api_MessageBeep& Lib "user32" Alias "MessageBeep" (ByVal wType&)

Var Shared Radio(4) As Object
Var Shared Button1 As Object

For i = 0 To 4
    Radio(i).Attach GetDlgItem("Radio" & Trim$(Str$(i + 1))) : Radio(i).SetFontSize 14
Next i
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Function Index bdecl () As Integer
function Index()
    Index = Val(Mid$(GetDlgRadioSelect("Radio1"), 6)) - 1
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var WM As Long
    Var Ret As Long 

    Select Case Index
        Case 0
            WM = MB_OK
        Case 1
            WM = MB_ICONHAND
        Case 2
            WM = MB_ICONQUESTION
        Case 3
            WM = MB_ICONEXCLAMATION
        Case 4
            WM = MB_ICONASTERISK
    End Select

    Ret = Api_MessageBeep(WM) 
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End