CasewareDocs

SmartOptionGroup

Properties

Example

Sub Main() 
Dim oParameters As Object

'Get parameters from SmartContext.
Set oParameters = SmartContext.Parameters

If oParameters.Contains("SmartOptionGroup1") Then
Select Case oParameters.Item("SmartOptionGroup1").Selection
Case 1
'Do something in case option 1 was selected.
Case 2
'Do something in case option 2 was selected.
Case 3
'Do something in case option 3 was selected.
Case 4
'Do something in case option 4 was selected.
Case Else
'An unexpected option was selected.
End Select
End If

Set oParameters = Nothing
End Sub