Private Sub FadeLR()
        i += 1
 
        Using bmp As New Bitmap(pic_size.Width, pic_size.Height), _
                                g As Graphics = Graphics.FromImage(bmp)
            g.DrawImage(bmp1, 0, 0)
 
            Dim r As New Rectangle(-pic_size.Width + i * 20, 0, _
                                   pic_size.Width, pic_size.Height)
 
            If i >= pic_size.Width / 20 Then
                r = New Rectangle(0, 0, pic_size.Width, pic_size.Height)
                Timer2.Enabled = False
            End If
 
            pb.Image = DirectCast(bmp.Clone, Bitmap)
            g.DrawImage(bmp2, r, 0, 0, pic_size.Width, pic_size.Height, _
                        GraphicsUnit.Pixel)
 
            If pb.Image IsNot Nothing Then pb.Image.Dispose()
            pb.Image = DirectCast(bmp.Clone, Bitmap)
        End Using
    End Sub