تنظیم اندازه متن edittext با SeekBar

[cloner01001 38]

سلام دوستان خسته نباشید

چطوری متن داخل ادیت تکست رو با seekbar هماهنگ کنم؟ به طوری که کاربر بتونه اندازه متن edittext رو با seekbar عوض کنه

[مجید آرتا 5,874]

[/b][b]Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)[/b]
[b]	EditText1.TextSize = Value[/b]

[b]End Sub[/b][b]