arabic letters

السلام عليكم

استعمل هذا الكود لاظهار الاحرف السويديه و الارقام

هل من الممكن تعديل الكود لاظهار الاحروف و الارقام العربيه

و شكرا

Dim code = Convert.ToUInt16(e.KeyChar)

Select Case code

Case 65 To 90, 97 To 122, 196, 197, 214, 228, 229, 246

LabelLcase.Text =

Char.ToLower(e.KeyChar)

LabelUcase.Text =

Char.ToUpper(e.KeyChar)

Case 48 To 57

LabelNumber.Text = e.KeyChar

End Select