Sub CldBtn_Click
Dim btn As Button = Sender
Dim colorpicker As ColorPickerDialog
If colorpicker.Show("לבחור צבע","אישור","ביטול","",Null) = DialogResponse.POSITIVE Then
Dim background As ColorDrawable
background.Initialize2(colorpicker.ARGB(255),1,0,Colors.White)
Dim pnl As Panel = btn.Parent
Dim btn As Button = pnl.GetView(7)
btn.Background = background
End If
End Sub