Sub B4XFloatTextField1_TextChanged (Old As String, New As String)
If New.Trim.Length = 0 Then
B4XFloatTextField1.mBase.GetView(1).Visible = True
Else
B4XFloatTextField1.mBase.GetView(1).Visible = False
End If
End Sub
Sub B4XFloatTextField1_TextChanged (Old As String, New As String)
B4XFloatTextField1.mBase.GetView(1).Visible = (New.Trim.Length = 0) 'parenthesis are not required
End Sub