ERRO no codigo

[jafero]

ola sou novo no forum

estou criando um launcher

e estou tendo dificuldades, estou com esse erro, gostaria de saber se alguém que saiba de VB possa me dizer como faço para arruma

se quiserem posto a source para dar uma olhada

todo o codigo e esse ainda n ta acabado

Imports System.Security.Cryptography

Imports System.Net

Public Class Form1

WithEvents wb As New WebClient

Dim _arquivos As String

Dim int As Integer = 0

Private Function getFileMd5(ByVal filePath As String) As String

Dim File() As Byte = System.IO.File.ReadAllBytes(filePath)

Dim Md5 As New MD5CryptoServiceProvider()

Dim byteHash() As Byte = Md5.ComputeHash(File)

Return Convert.ToBase64String(byteHash)

End Function

Private Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\filehash.txt") Then

Status.Text = "Baixando lista de atualizações"

wb.DownloadFileAsync(New Uri("******************"), Application.StartupPath & "\filehash.txt")

VerificarArquivos()

Else

VerificarArquivos()

End If

End Sub

Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted

int += 1

If _arquivos.Contains("[arquivo1]") Then

Status.Text = "Baixando arquivo1.exe"

wb.DownloadFileAsync(New Uri("******************"), Application.StartupPath & "\arquivo1.exe")

ElseIf _arquivos.Contains("[arquivo2]") Then

Status.Text = "Baixando arquivo1.exe"

wb.DownloadFileAsync(New Uri("********************"), Application.StartupPath & "\arquivo2.exe")

End If

End Sub

Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged

ProgressBar1.Maximum = e.TotalBytesToReceive

ProgressBar1.Value = e.BytesReceived

End Sub

Private Sub VerificarArquivos()

Try

Dim _filehash As String() = System.IO.File.ReadAllLines(Application.StartupPath & "\filehash.txt")

If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\filehash.txt") Then

_arquivos &= "[arquivo1]"

Else

If Not getFileMd5(Application.StartupPath & "\arquivo1.exe") = _filehash(1) Then

_arquivos &= "[arquivo1]"

End If

End If

If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\filehash.txt") Then

_arquivos &= "[arquivo2]"

Else

If Not getFileMd5(Application.StartupPath & "\arquivo2.exe") = _filehash(4) Then

_arquivos &= "[arquivo2]"

End If

End If

Call wb_DownloadFileCompleted(Nothing, Nothing)

Catch ex As Exception

End Try

End Sub

End Class