--- /dev/null
+Option Explicit
+Dim obj: Set obj = CreateObject("SeraphyScriptDialog")
+Dim frm: Set frm = obj.CreateForm()
+Dim chk1: chk1 = frm.DefineRadioButton("\83\89\83W\83I1;\83\89\83W\83I2;\83\89\83W\83I3", 0, 1)
+Dim lbl1: lbl1 = frm.DefineLabel("")
+Dim chk2: chk2 = frm.DefineRadioButton("\83\89\83W\83Ia;\83\89\83W\83Ib",,1)
+Dim lbl2: lbl2 = frm.DefineLabel("")
+Dim btn1: btn1 = frm.DefineButton("OK")
+frm.ComposeForm()
+Do
+ Dim ret: ret = frm.WaitEvent(100)
+ If Not IsNull(ret) Then
+ If ret = btn1 Then
+ MsgBox "chk1=" & frm.Value(chk1) & vbCrLf & "chk2=" & frm.Value(chk2)
+ Exit Do
+
+ ElseIf ret = chk1 Then
+ frm.Value(lbl1) = frm.Value(chk1)
+
+ ElseIf ret = chk2 Then
+ frm.Value(lbl2) = frm.Value(chk2)
+
+ ElseIf ret = btn1 + 1 Or ret = -1 Then
+ Exit Do
+ End If
+ End If
+Loop
+frm.DestroyForm()