Sub B4XComboBox3_SelectedIndexChanged (Index As Int)
If Index = B4XComboBox3.Size-1 Then 'Input new product item....
B4XComboBox3.cmbBox.Visible = False
B4XFloatTextField3.mbase.Visible = True
B4XFloatTextField3.mbase.Color = 0xFFFFF564
B4XFloatTextField3.TextField.Color = 0xFFFFF564