count = 0
For Each b4txt As B4XFloatTextField In Array(cutsTxtA1,cutsTxtA2,cutsTxtA3,cutsTxtA4,cutsTxtA5,cutsTxtA6,cutsTxtA7,cutsTxtA8,cutsTxtA9,cutsTxtA10,cutsTxtA11,cutsTxtA12)
CutsA(count) = b4txt
CutsA(count).mBase.Visible=False
#IF B4A
Dim et As EditText = b4txt.TextField
et.InputType = et.INPUT_TYPE_NONE
#END IF
count = count+1
Next