Sub btnInput_Click
Dim Id As InputDialog
Id.Input = ""
Id.Hint = "Enter some text!"
Id.HintColor = Colors.ARGB(196, 255, 140, 0)
ret = DialogResponse.CANCEL
ret = Id.Show("Input the required text", "B4A Input Dialog", "Yes", "No", "Maybe", Bmp)
ToastMessageShow(ret & " : " & Id.Input, False)
Id.Input = "" 'Place the cursor on Id, press F7 and you get a (too) loud beep :)
End Sub