Dim Id As InputDialog
'Id.PasswordMode = True
'Id.InputType = Id.INPUT_TYPE_DECIMAL_NUMBERS
'Id.InputType = Id.INPUT_TYPE_NUMBERS
'Id.InputType = Id.INPUT_TYPE_PHONE
Id.Input = "Ciao By Devil" '<----- Here if you want set value initial
'Id.PasswordMode = True
'Id.Hint = "Insert Advance Request"
'Id.HintColor = Colors.ARGB(196, 255, 140, 0)
Dim ret As Int
ret = Id.Show("Insert Name", "Test", "OK", "", "", Null)
If ret = DialogResponse.POSITIVE Then
' Check if value is empty
If Id.Input = "" Then
ToastMessage("Nothing, pls add", True)
Return
Else
ToastMessage( Id.Input.ToUpperCase, True)
End If
End If