[fouadhdfouad]

تفضل اخي هذا المثال

PHP كود :

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BackgroundWorker1.RunWorkerAsync()
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        TextBox1.Clear()
        Try
            Dim Mp3Binary = IO.File.ReadAllText("C:\Users\f\Pictures\9-482.png")
            System.Text.Encoding.ASCII.GetBytes(Mp3Binary)
            For i = 0 To Mp3Binary.Length - 1
                TextBox1.AppendText(Mp3Binary(i))
            Next
        Catch ex As Exception

        End Try
    End Sub
End Class