تبدیل کد اسکی به کاراکتر فارسی

سلام دوستان
من تازه با این سایت آشنا شدم. یه مشکل توو برنامه نویسی VB دارم. وقتی کد زیر را می نویسم کاراکترهای فارسی نمایش داده نمیشه.میشه لطفا راهنمایی کنید.
ممنون
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i
For i = 1 To 255
ListBox1.Items.Add(i & " " & Chr(i))
Next
End Sub

از این استفاده کن

Private Sub Command1_Click()



    Dim i





    For i = 1 To 255

        List1.AddItem Chr(i) & "--------->" & i

    Next





End Sub

ممنون دوست عزیز، ولی متوجه نشدم:متفکر:

همین کد رو کپی کنید بجای اون کد شما فقس اسم لیست باکسه عوض شده ...

فونت لیست باکس رو هم روی فارسی تنظیم کنید .