Public Sub SetEditTextIcon(TextBox As EditText)
Dim Bmpd As BitmapDrawable
Dim poPhone As Phone
Dim ST As String
Bmpd = poPhone.GetResourceDrawable(17301583) 'ic_menu_search
'Add to edittext1
ST="android.graphics.drawable.Drawable"
Dim R As Reflector
R.Target = TextBox
R.RunMethod4("setCompoundDrawablesWithIntrinsicBounds",Array As Object(Bmpd,Null,Null,Null),Array As String(ST,ST,ST,ST))
End Sub