Use OptionToggle with Rhino.Input.Custom.GetOption()

How to use a boolean value in an getOption?

I Use this code for getDouble:

Dim V As New Rhino.Input.Custom.OptionDouble(0.001, 0.001, 0.1)
Dim D As New Rhino.Input.Custom.OptionDouble(0.3, -1, 1)
Dim List1 As New List(Of String)
Dim go1 As New Rhino.Input.Custom.GetOption()
Dim res1 As Rhino.Input.GetResult

List1.Clear
List1.Add("Tolérance")
List1.Add("Domaine")

go1.SetCommandPrompt("Parametres")

go1.AcceptNothing(True)
go1.ClearCommandOptions()

go1.AddOptionDouble(List1(0), V, List1(0))
go1.AddOptionDouble(List1(1), D, List1(1))

Thanks for all.