Spanish Problemas con Array de Botones

buenas estoy realizando una aplicacion en b4a, tengo 4 botones en tiempo de ejecucion, los creo le doy formato etc los coloco en un panel todo ok, para eso utilizo un array de botones todo ok, luego creo un sub para los botones, la idea es cambiar de color cuando el usuario hace click sobre el boton yo voy a simplificar un poco el codigo y lo coloco, el problema es cuando pulso en el boton uno tambien cambia el color del ultimo boton y asi sucesivamente, espero haber sido claro, en algun momento esto anda bien, no se que pude haber tocado y como dije anda mal

Sub Activity_Create(FirstTime As Boolean)
dim j as int
dim dr as ColorDrawable
dim botones(4) as button
For j=0 To 3
botones(j).Initialize("botones")
dr.Initialize2(Colors.White,18,2dip,Colors.RGB(97,74,144))
botones(j).Background=dr
botones(j).TextColor=Colors.RGB(97,74,144)
botones(j).TextSize=20
botones(j).Tag=j
Select j
Case 0
botones(j).Text="Amable"
panels(i).AddView(botones(j),18.22%x,23.9%y,63.57%x,9.20%y)
Case 1
botones(j).Text="Persuasivo"
panels(i).AddView(botones(j),18.22%x,36%y,63.57%x,9.20%y)
Case 2
botones(j).Text="Humilde"
panels(i).AddView(botones(j),18.22%x,48%y,63.57%x,9.20%y)
Case 3
botones(J).Text="Original"
panels(i).AddView(botones(j),18.22%x,60%y,63.57%x,9.20%y)
End Select
next
end sub

Sub botones_Click
Dim b As Button
b = Sender
b.Color=Colors.Red
end sub

por cierto tambien probe sin array o sea declarando un button debajo del for iniciandolo y colocandole el tag, luego declaro el sub del boton realizo una case segun el tag y me da el mismo error

Move Dim dr As ColorDrawable into the For / Next loop.

You should use code tags to show code:

ok gracias por la respuesta, ya lo solucione