مشکل خواندن متن فارسی

[peiman3d 4]

سلام

من با کد زیر متن رو به صورت خطی میخونم

کدش مشکلی نداره و درست کار میکنه

مشکلم اینجاس که متن فارسی رو درست نشون نمیده

حتی فایل txt رو UTF8 هم که ذخیره میکنم بازم نمیشه

!!!؟؟؟

 

Dim Map1 As Map

( " Map1 = File.ReadMap(File.DirAssets, "List.txt

    Dim sb As StringBuilder

    sb.Initialize

    (sb.Append("The map entries are:").Append(CRLF

    For i = 0 To Map1.Size - 1

(   "   =  sb.Append("Key = ").Append(Map1.GetKeyAt(i)).Append(", Value 

       ( sb.Append(Map1.GetValueAt(i)).Append(CRLF

    Next

  Label1.Text =sb.ToString

[حاج حسین 2,098]

اگر کدهات مشکل نداره پس مشکل از فایل تکسته 

با یه فایل تکس دیگه تست ببین درست میشه