[sooriaty03]

السلام عليكم ورحمة الله وبركاته

وهذه أيضا طريقة أخرى:

كود :

Private Function GetArabic(ByVal txt As String) As String
       Dim OriginalBytes As Byte() = (From ch In txt Select CByte(AscW(ch))).ToArray
       Dim EncodedBytes As Byte() = System.Text.Encoding.Convert(System.Text.Encoding.GetEncoding("windows-1256"), System.Text.Encoding.UTF8, OriginalBytes)
       Return System.Text.Encoding.UTF8.GetString(EncodedBytes)
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       MsgBox(GetArabic("ÐÏÌÍÎåÚÛÝÞËÕÖØßãäÊÇáÈíÓÔÙÒæÉìÑÄÁÆøºÅñõðó¡ÜÃòö¿Âú"))
End Sub