با این کد میتوانید یه جوری ادیت تکست رو قفل کنید که دیگه نشه روش کلیک کرد و داخلش متن و … نوشت .

Sub setTextIsSelectable(edt As EditText, Selectable As Boolean)
    Dim jo = edt As JavaObject
    jo.RunMethod("setTextIsSelectable", Array As Object(Selectable))
End Sub

لایبرری مورد نیاز : javaobject