How I send lots of image in a file to ftp server?

Imports System.Net.FtpWebRequest
Imports System.Net.NetworkInformation
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
'server path            
Dim clsRequest As System.Net.FtpWebRequest =_         
DirectCast(System.Net.WebRequest.Create("E:\Image.jpeg"), System.Net.FtpWebRequest)
            clsRequest.Credentials = New System.Net.NetworkCredential("USERNAME", "PASSWORD")
            clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
            ' read in file...
'local path            
Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\Image.jpg")
            ' upload file...
            Dim clsStream As System.IO.Stream = _
                clsRequest.GetRequestStream()
            clsStream.Write(bFile, 0, bFile.Length)
            clsStream.Close()
            clsStream.Dispose()
            MsgBox("OVER.......!!!!!")
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkCancel)
            If MsgBoxResult.Cancel Then
                Me.Close()
            End If
        End Try
    End Sub