Try
            'we use Try for Error

            OpenFileDialog1.ShowDialog() ' here we want open file to see what pic we want to send
            Dim MyImage As String = OpenFileDialog1.FileName()  ' here we create varble for pic to set on Picture box =  PictureBoxforSend  
            PictureBoxforSend.Image = Image.FromFile(MyImage) ' you can see we add pic to Picture  
            ' now we will creat Memory Stream that will transport after change to Byets
            Dim MY_MemoryStream As MemoryStream = New MemoryStream
            PictureBoxforSend.Image.Save(MY_MemoryStream, PictureBoxforSend.Image.RawFormat)
            Dim ArrImage As Byte() = MY_MemoryStream.GetBuffer ' here change it to Bytes
            MY_MemoryStream.Close()
            ' here we will make connetion by IP and Port Using IP.Text and Port.Text
            Dim MyClient As TcpClient = New TcpClient(IP.Text, Port.Text)
            Try
                Dim MyNETWorkStream As NetworkStream = _
                MyClient.GetStream
                Dim MyBinaryWrit As BinaryWriter = _
                New BinaryWriter(MyNETWorkStream)
                MyBinaryWrit.Write(ArrImage)
                MyBinaryWrit.Close()
                MyNETWorkStream.Close()
                MyClient.Close()
            Catch ex As Exception
                'Connetion Error
                ' Note you Can Use One Try to Catch Error as you lik
                MsgBox("Connetion Error" + ex.Message, MsgBoxStyle.Information)
            End Try
        Catch ex As Exception
            'Image  Error while get form you localhost into PictureBox
            MsgBox("Image  Error" + ex.Message, MsgBoxStyle.Information)
        End Try
    End Sub

Imports System.Threading
Imports System.IO
Imports System.Net
Imports System.Net.Sockets

 ' لفتح البورت في السيرفر    Private MYTcpListener As TcpListener
 Private MySocket As Socket
Private MyNetworkStream As NetworkStream
Dim MyThread As Thread

Sub MyImage_RECIEVE()
        MYTcpListener = New TcpListener(5002)
        MYTcpListener.Start()
        MySocket = MYTcpListener.AcceptSocket
        MyNetworkStream = New NetworkStream(MySocket)
        PictureBox1.Image = Image.FromStream(MyNetworkStream)
        MYTcpListener.Stop()
        If MySocket.Connected = True Then
            While True
                MyImage_RECIEVE()
            End While
        End If
    End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        Try
            SaveFileDialog2.Filter = " Save As ... (*.JPG)|*.JPG" ' you can Change it as you like
            If SaveFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim MYIMAGE As String = SaveFileDialog2.FileName
                PictureBox1.Image.Save(MYIMAGE)
                MsgBox(" Done ................. ", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            'To Catch any Error
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Try
            MyThread.Abort()
            MYTcpListener.Stop()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyThread = New Thread(New System.Threading.ThreadStart(AddressOf MyImage_RECIEVE))
        MyThread.Start()
    End Sub

    Private Sub EixtToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EixtToolStripMenuItem.Click
        End
    End Sub