DlgCaption (statement)

                           'This example displays a dialog box, adjusting the caption
                           'to contain the text of the currently selected option
                           'button.
                           Function DlgProc(c As String,a As Integer,v As Integer)
                           If a = 1 Then
DlgCaption choose(DlgValue("OptionGroup1") + 1, _
                           "Blue","Green")
                           ElseIf a = 2 Then
DlgCaption choose(DlgValue("OptionGroup1") + 1, _
                           "Blue","Green")
                           End If
                           End Function
                           Sub Main()
                             Begin Dialog UserDialog ,,149,45,"Untitled",.DlgProc
                               OKButton 96,8,40,14
                               OptionGroup .OptionGroup1
                               OptionButton 12,12,56,8,"Blue",.OptionButton1
                               OptionButton 12,28,56,8,"Green",.OptionButton2
                             End Dialog
                             Dim d As UserDialog
                             Dialog d
                           End Sub