Exibir imagem salva no banco de dados em PictureBox Visual Basic 2008

Question

Olá! estou começando em visual basic agora e gostaria de saber como posso exibir uma imagem que esta salva no Banco de Dados em uma Picture Box

meu codigo dos botoes para abrir e gravar a imagem no banco

Private Sub B_Abrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Abrir.Click

        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName

    End Sub

    Private Sub B_Gravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Gravar.Click
        Dim arqIma As FileStream
        Dim rImag As StreamReader
        If Len(TextBox1.Text) <> 0 Then
            arqIma = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read)
            rImag = New StreamReader(arqIma)
        Else
            MsgBox("Informe um nome para a Imagem", MsgBoxStyle.Critical, "Erro")
            Exit Sub
        End If
        strcon = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\PROGRANS\imagem\imagem\Database1.mdf;Integrated Security=True;User Instance=True"
        sql = "INSERT INTO Table1 (imagem) VALUES (@imagem)"
        Dim conexao As New SqlClient.SqlConnection(strcon)
        Dim comando As New SqlClient.SqlCommand(sql, conexao)

        Try
            Dim arqByteArray(arqIma.Length - 1) As Byte
            arqIma.Read(arqByteArray, 0, arqIma.Length)
            comando.Parameters.Add("@imagem", SqlDbType.Binary, arqIma.Length).Value = arqByteArray
            conexao.Open()
            comando.ExecuteNonQuery()
            conexao.Close()
            MsgBox("Imagem Incluida com Sucesso", MsgBoxStyle.Information, "OK")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "ERRO")
        End Try
        TextBox1.Text = ""
    End Sub