### Sample InputList select standard color

'Example InputList select standard color
'Select a standard color
'Returns Color selected as string
'Example: Blue
`Sub ColorChooserEx_Action
Dim b As Button = Sender
Dim rt As Int = fx.InputList(Null, ColorList, "Select a color from the list of standard colors", b.Text, -1)
If rt <> fx.DialogResponse.CANCEL Then
labelInformation.Text = "You have selected Button " & CRLF & b.Text
fx.Msgbox(Null, "Color selected: " & ColorList.Get(rt), "Result " & b.Text)
End If
End Sub`

Changed: , Category: MsgBox and InputList, File: T6C222M1639.htm, ID: 1639