Private Sub Fade(Str As String)
        Dim A() As String = Str.Split(","c)
        i += 1
        'Threading.Thread.Sleep(100)
        Using bm As New Bitmap(PicBoxRect.Width, PicBoxRect.Height),
            g2 As Graphics = Graphics.FromImage(bm),
            g As Graphics = pb1.CreateGraphics
 
            g2.DrawImage(ActivePic, PicBoxRect)
            g2.DrawImage(NextPic, New Rectangle(CInt(A(0)), CInt(A(1)), CInt(A( _
              2)), CInt(A(3))),
                                  New Rectangle(CInt(A(4)), CInt(A(5)), CInt(A( _
                                  6)), CInt(A(7))),
                                  GraphicsUnit.Pixel)
            g.DrawImage(bm, PicBoxRect)
        End Using
    End Sub