Try

            Dim sqlq As String = "select * from Documents_Table where Mokhalafah_Number='" + TextBox22.Text + "'"

            Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)

            Dim sqlAdapter = New SqlDataAdapter(sqlcmd)

            Dim dt As New DataTable

            Dim FS As FileStream = Nothing

            Dim dbbyte As Byte()

            dt = New DataTable()

            sqlAdapter.Fill(dt)

            Sqlcon.Close()

            If dt.Rows(0)(8).ToString = True Then

                If dt.Rows.Count > 0 Then

                    dbbyte = DirectCast(dt.Rows(0)("Mokhalafah_Pdf"), Byte())

                    My.Computer.FileSystem.CreateDirectory("C:\MohkPdfToImage")

                    Dim filepath As String = "C:\MohkPdfToImage\Mokhlafah.pdf"

                    FS = New FileStream(filepath, System.IO.FileMode.Create)

                    FS.Write(dbbyte, 0, dbbyte.Length)

                    FS.Close()

                    ' ''FS.Dispose()

                    Dim Proc As New Process()

                    Proc.StartInfo.FileName = filepath

                    Proc.Start()

                    Proc.Kill()

                    Sqlcon.Close()

                    MsgBox("    تم تحميل مستند المخالفة    ")

                    Dim f As New SautinSoft.PdfFocus

                    f.OpenPdf("C:\MohkPdfToImage\Mokhlafah.pdf")

                    f.ImageOptions.Dpi = 300

                    f.ToMultipageTiff("C:\MohkPdfToImage\Mokhlafah.tiff")

                    MsgBox("done")

                    Dim fpath As String = "C:\MohkPdfToImage\Mokhlafah.tiff"

                    Form2.PictureBox1.Image = Image.FromFile(fpath)

                End If

            Else

                MsgBox("لم يتم إدراج مستند للمخالفة")

            End If

        Catch ex As Exception

        End Try

        Form2.TextBox9.Text = Me.TextBox9.Text

        Form2.TextBox3.Text = Me.TextBox3.Text

        Form2.TextBox4.Text = Me.TextBox2.Text

        Form2.TextBox13.Text = Me.TextBox13.Text

        Form2.ComboBox2.Text = Me.TextBox12.Text

        Form2.TextBox5.Text = Me.TextBox22.Text

        Form2.NumericUpDown1.Value = CInt(Me.TextBox15.Text)

        If CheckBox3.Checked = True Then

            Form2.CheckBox3.Checked = True

        Else

            Form2.CheckBox3.Checked = False

        End If

        Form2.ShowDialog