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