F = Application.StartupPath & "\Temp\" & Document & ".jpg"
            Me.DataGridView2.Item(6, ROWS_ID).Value = "True"
            Dim PAR As New Data.SqlClient.SqlParameter
            Dim P1 As Image = PictureBox2.Image
            c = P1.Width : d = P1.Height
            Dim bm As New Bitmap(c, d)

            c = 0 : d = 0
            Dim gr As Graphics = Graphics.FromImage(bm)
            For I = 1 To 1
                gr.Clear(Color.White)
                gr.DrawImage(P1, c, d)
                bm.Save(F, System.Drawing.Imaging.ImageFormat.Jpeg)
                c = c - P1.Width
                If c <= -1 * P1.Width Then
                    c = 0
                    d = d - P1.Height
                End If
            Next
        End If