Android Question How can i put the image into the edittext?

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