Sub AddArrow
Dim lblArrow As Label
lblArrow.Initialize("")
lblArrow.Text = Chr(0xF107)
lblArrow.Font = Font.CreateFontAwesome(B4XComboBox1.mBtn.TextSize)
lblArrow.TextColor = Colors.Gray
B4XComboBox1.mBase.AddView(lblArrow, B4XComboBox1.mBase.Width - 30dip, 0, 30dip, B4XComboBox1.mBase.Height)
End Sub
Sub AddArrowToComboBox(pB4XCombo As B4XComboBox,pColor As Int)
Dim lblArrow As Label
lblArrow.Initialize("")
lblArrow.Text = Chr(0xF0d7)
lblArrow.Font = Font.CreateFontAwesome(pB4XCombo.mBtn.TextSize)
lblArrow.TextColor = pColor 'Colors.Gray
pB4XCombo.mBase.AddView(lblArrow, pB4XCombo.mBase.Width - 30dip, 0, 30dip, pB4XCombo.mBase.Height)
End Sub