Public Class frmMain
    Private ActivePic, NextPic As Bitmap
    Private PicBoxRect As New Rectangle(0, 0, 560, 315)
    Private i As Integer = 0
    Private strW, strH As String
 
    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PB2.Image = New Bitmap("C:\...\xxx.jpg")      '  561x637 - 0,880...
        Using bmp1 As New Bitmap(560, 315)
            PB2.BackColor = Color.Green
            PB2.DrawToBitmap(bmp1, PicBoxRect)
            PB1.Image = New Bitmap(bmp1)
            ActivePic = New Bitmap(bmp1)
        End Using
 
        PB2.Image = New Bitmap("C:\...\yyy.jpg")      ' 1920x1080 - 1,777...
        Using bmp2 As New Bitmap(560, 315)
            PB2.BackColor = Color.Red   ' -> .Black sonst Streifen rechts und 
                                              unten (unter PB1 schwarzes Panel)
            PB2.DrawToBitmap(bmp2, PicBoxRect)
            NextPic = New Bitmap(bmp2)
        End Using
    End Sub
 
    Private Sub BtnLR_Click(sender As Object, e As EventArgs) Handles _
      BtnLR.Click
        i = 0
        Do While i <= 560 / 10
            strW = CStr(i * 10)
            Fade("0, 0, " & strW & ", 315, 0, 0, " & strW & ", 315")
        Loop
    End Sub
 
    Private Sub BtnOU_Click(sender As Object, e As EventArgs) Handles _
      BtnOU.Click
        i = 0
        Do While i <= 315 / 10
            strH = CStr(i * 10)
            Fade("0, 0, 560, " & strH & ", 0, 0, 560, " & strH)
        Loop
        Fade("0, 0, 560, 315, 0, 0, 560, 315")
    End Sub
 
    Private Sub BtnL_Click(sender As Object, e As EventArgs) Handles BtnL.Click
        i = 0
        Do While i <= 560 / 10
            strW = CStr(i * 10)
            Fade("0, 0, " & strW & ", 315, " & _
                 CStr(560 - CInt(strW)) & ", 0, " & strW & " , 315")
        Loop
    End Sub
 
    Private Sub Fade(Str As String)
        Dim A() As String = Str.Split(",")
        i += 1
        'Threading.Thread.Sleep(100)
        Using bm As New Bitmap(PicBoxRect.Width, PicBoxRect.Height)
            Dim g2 As Graphics = Graphics.FromImage(bm)
            g2.DrawImage(ActivePic, PicBoxRect)
            g2.DrawImage(NextPic, New Rectangle(A(0), A(1), A(2), A(3)), _
                                  New Rectangle(A(4), A(5), A(6), A(7)), _
                                  GraphicsUnit.Pixel)
            Dim g As Graphics = PB1.CreateGraphics
            g.DrawImage(bm, PicBoxRect)
        End Using
    End Sub
End Class

  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

Private Function GetPic(filename As String, picsize As Size) As Bitmap
 
        Dim bmpout As Bitmap  
        'Rückgabe-Bitmap (Bild zentriert eingepasst)
 
        Using bmp As New Bitmap(filename)
            'erforderliche Bildgröße berechnen (Zoomen)
            Dim w, h, l, t As Integer
            w = CInt(bmp.Width * picsize.Height / bmp.Height)
            h = picsize.Height
            If w > picsize.Width Then
                h = CInt(bmp.Height * picsize.Width / bmp.Width)
                w = picsize.Width
            End If
            'Bild zentrieren
            l = (picsize.Width - w) \ 2
            t = (pic_size.Height - h) \ 2
 
            'Ausgabebitmap
            bmpout = New Bitmap(pic_size.Width, pic_size.Height)
 
            'Geladenes Bild in erforderlicher Größe neu zeichnen
            Using gout As Graphics = Graphics.FromImage(bmpout)
                gout.InterpolationMode =
                    Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.LightGray) 'Hintergrundfarbe setzen
                gout.DrawImage(bmp,
                            New Rectangle(l, t, w, h),
                            New Rectangle(0, 0, bmp.Width, bmp.Height),
                            GraphicsUnit.Pixel)
            End Using
        End Using
        Return bmpout
 
    End Function

Public Class Form4
    Private ActivePic, NextPic As Bitmap
    Private i As Integer = 0
    Private PicSize As Size = New Size(560, 315)
 
    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ActivePic = GetPic("C:\...\XXX.JPG", PicSize)
        NextPic = GetPic("C:\...\YYY.jpg", PicSize)
        PB1.Image = New Bitmap(ActivePic)
        PB2.Image = New Bitmap(NextPic)
    End Sub
 
    Private Function GetPic(filename As String, picsize As Size) As Bitmap
        Dim bmpout As Bitmap
 
        Using bmp As New Bitmap(filename)
            Dim w, h, l, t As Integer
            w = CInt(bmp.Width * picsize.Height / bmp.Height) 
            h = picsize.Height
            If w > picsize.Width Then
                h = CInt(bmp.Height * picsize.Width / bmp.Width)
                w = picsize.Width
            End If 
            l = (picsize.Width - w) \ 2
            t = (picsize.Height - h) \ 2
 
            bmpout = New Bitmap(picsize.Width + 1, picsize.Height)
 
            Using gout As Graphics = Graphics.FromImage(bmpout)
                gout.InterpolationMode = _
                  Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.Black)
 
                'gout.DrawImage(bmp, New Rectangle(l, t, w, h), _
                        New Rectangle(0, 0, bmp.Width, bmp.Height), _
                        GraphicsUnit.Pixel)
               'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
                gout.DrawImage(bmp, New Rectangle(l - 1, t - 1, w + 1, h + 1), _
                        New Rectangle(0, 0, bmp.Width - 1, bmp.Height), _
                        GraphicsUnit.Pixel)
               'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
            End Using
        End Using
 
        Return bmpout
    End Function
 
    Private Sub Btn_LR_Click(sender As Object, e As EventArgs) Handles _
      Btn_LR.Click
        i = 0
        Do While i <= 560 / 10
            Fade(0, 0, i * 10, 315, 0, 0, i * 10, 315)
        Loop
    End Sub
 
    Private Sub Btn_OU_Click(sender As Object, e As EventArgs) Handles _
      Btn_OU.Click
        i = 0
        Do While i <= 315 / 10
            Fade(0, 0, 560, i * 10, 0, 0, 560, i * 10)
        Loop
        Fade(0, 0, 560, 315, 0, 0, 560, 315)
    End Sub
 
    Private Sub Btn_L_Click(sender As Object, e As EventArgs) Handles _
      Btn_L.Click
        i = 0
        Do While i <= 560 / 10
            Fade(0, 0, i * 10, 315, 560 - i * 10, 0, i * 10, 315)
        Loop
    End Sub
 
    Private Sub Fade(A0, A1, A2, A3, A4, A5, A6, A7)
         i += 1
        'Threading.Thread.Sleep(100)
        Using bm As New Bitmap(PicSize.Width, PicSize.Height)
            Dim g2 As Graphics = Graphics.FromImage(bm)
            g2.DrawImage(ActivePic, 0, 0, PicSize.Width, PicSize.Height)
            g2.DrawImage(NextPic, New Rectangle(A0, A1, A2, A3), _
                                                   New Rectangle(A4, A5, A6, _
                                                   A7), GraphicsUnit.Pixel)
            Dim g As Graphics = PB1.CreateGraphics
            g.DrawImage(bm, 0, 0, PicSize.Width, PicSize.Height)
        End Using
    End Sub
End Class

Public Class frmFader
 
 
    Dim pic_size As New Size(1920, 1080)
 
    Dim bmp1, bmp2 As Bitmap
 
    Dim pb As New PictureBox With {.Parent = Me, 
        .Size = New Drawing.Size(400, 400),
        .Top = 10, .Left = 10, 
        .SizeMode = PictureBoxSizeMode.Zoom}
 
    Dim WithEvents tm As New Timer With {.Interval = 500, .Enabled = False}
 
 
    Private Sub frmFader_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
 
        Dim r1 As Rectangle = GetPicRect("G:\daten\x1.jpg", pic_size)
        Dim r2 As Rectangle = GetPicRect("G:\daten\x2.jpg", pic_size)
 
        If Math.Abs(r1.Width - r2.Width) < 3 And 
            Math.Abs(r1.Height - r2.Height) < 3 Then
            r2 = r1
        End If
 
        bmp1 = DrawPic("G:\daten\x1.jpg", pic_size, r1)
        bmp2 = DrawPic("G:\daten\x2.jpg", pic_size, r2)
 
        tm.Enabled = True
    End Sub
 
 
    Private Function GetPicRect(filename As String, picsize As Size) As _
      Rectangle
        Dim w, h, l, t As Integer
        Using bmp As New Bitmap(filename)
            'erforderliche Bildgröße berechnen (Zoomen)
 
            w = CInt(bmp.Width * picsize.Height / bmp.Height)
            h = picsize.Height
            If w > picsize.Width Then
                h = CInt(bmp.Height * picsize.Width / bmp.Width)
                w = picsize.Width
            End If
            'Bild zentrieren
            l = (picsize.Width - w) \ 2
            t = (pic_size.Height - h) \ 2
        End Using
 
        Return New Rectangle(l, t, w, h)
    End Function
 
 
    Private Function DrawPic(filename As String, picsize As Size, 
        picrect As Rectangle) As Bitmap
 
        Dim bmpout As New Bitmap(picsize.Width, pic_size.Height)
 
        Using bmp As New Bitmap(filename)
            'Ausgabebitmap
 
            'Geladenes Bild in erforderlicher Größe neu zeichnen
            Using gout As Graphics = Graphics.FromImage(bmpout)
                gout.InterpolationMode =
                    Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.LightGray)
                gout.DrawImage(bmp,
                            picrect,
                            New Rectangle(0, 0, bmp.Width, bmp.Height),
                            GraphicsUnit.Pixel)
            End Using
        End Using
        Return bmpout
    End Function
 
 
    Private Sub Fade(ByVal Alpha As Single)
        Dim ColMat As New System.Drawing.Imaging.ColorMatrix _
        With {.Matrix33 = Alpha}            ' 
 
        Using bmp As New Bitmap(pic_size.Width, pic_size.Height),
                g As Graphics = Graphics.FromImage(bmp),
                imgAtt As New System.Drawing.Imaging.ImageAttributes
 
            imgAtt.SetColorMatrix(ColMat)
 
            ' Bild deckend in Buffer zeichnen
            g.DrawImage(bmp1, 0, 0)
            ' neues Bild transparent
            ' in Buffer zeichnen
            Dim r As New Rectangle(0, 0, pic_size.Width, pic_size.Height)
            g.DrawImage(bmp2, r, 0, 0, pic_size.Width, pic_size.Height,
                        GraphicsUnit.Pixel, imgAtt)
 
            If pb.Image IsNot Nothing Then pb.Image.Dispose()
            pb.Image = DirectCast(bmp.Clone, Bitmap)
        End Using
 
    End Sub
 
 
    Private Sub tm_Tick(sender As Object, e As EventArgs) Handles tm.Tick
 
        Static alpha As Single = 0
        alpha += CSng(0.1)
        If alpha > 1 Then alpha = 0
        Fade(alpha)
    End Sub
 
End Class

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

Public Class frmPicMove
 
    Dim bmp As Bitmap
    Dim bmp_rect As Rectangle
 
    Dim WithEvents timMove As New Timer With 
         {.Interval = 50, .Enabled = False}
    Dim WithEvents btnStart As New Button With 
         {.Parent = Me, .Width = 150, .Text = "Move"}
    Dim WithEvents pbMove As New PictureBox With 
        {.Parent = Me, .Top = 50,
        .SizeMode = PictureBoxSizeMode.Zoom}
 
    Dim startleft As Integer, anim_left As Integer
 
 
    Private Sub frmPicMove_Load(sender As Object, 
                          e As EventArgs) Handles MyBase.Load
 
        Me.Width = 1050
        Me.Height = 550
 
        pbMove.Width = Me.Width - 20
        pbMove.Height = Me.ClientSize.Height - (btnStart.Top + btnStart.Height _
          + 20)
 
        'anzuzeigende Bilddatei
        Dim picfile As String = "G:\Daten\x1.jpg"
 
        'in Box eingepaßte Bildgröße berechnen (Funktion von oben)
        bmp_rect = GetPicRect(picfile, pbMove.Size)
 
        'Bild aus Datei in passender Größe erstellen
        Using bmp_orig As New Bitmap(picfile)
            bmp = New Bitmap(bmp_orig, New Size(bmp_rect.Width, _
              bmp_rect.Height))
        End Using
 
        pbMove.BackColor = Color.Yellow
 
        'linke Bildposition in der Box zum Verschieben
        'Die Box muss dabei wesentlichbreiter sein als das eingepaßte Bild
        startleft = pbMove.Width - bmp.Width
        anim_left = startleft + 5
 
    End Sub
 
 
    Private Sub pbMove_Paint(sender As Object, e As PaintEventArgs) Handles _
      pbMove.Paint
 
        'aktuelles Bildrechteck in der Box
        Dim rect_paint As New Rectangle(anim_left, 0, bmp_rect.Width, _
          bmp_rect.Height)
 
        e.Graphics.Clear(Color.Yellow)
        e.Graphics.DrawImage(bmp, rect_paint, New Rectangle(0, 0, bmp.Width, _
          bmp.Height),
                             GraphicsUnit.Pixel)
    End Sub
 
 
 
    Private Sub timMove_Tick(sender As Object, e As EventArgs) Handles _
      timMove.Tick
 
        'um 5 Pixel nach links verschieben
        anim_left -= 5
        If anim_left < 0 Then anim_left = startleft
        'neu zeichnen lassen (Paint wird gerufen) 
        pbMove.Invalidate()
 
    End Sub
 
 
    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles _
      btnStart.Click
 
        timMove.Enabled = Not timMove.Enabled
    End Sub
End Class

Public Class frmPicMove
 
    Dim bmp As Bitmap
    Dim bmp_rect As Rectangle
 
    Dim WithEvents timMove As New Timer With 
         {.Interval = 50, .Enabled = False}
    Dim WithEvents btnStart As New Button With 
         {.Parent = Me, .Width = 150, .Text = "Move"}
    Dim WithEvents pbMove As New PictureBox With 
        {.Parent = Me, .Top = 50,
        .SizeMode = PictureBoxSizeMode.Zoom}
 
 
    Dim startleft, stopleft, anim_left As Integer
 
 
    Private Sub frmPicMove_Load(sender As Object, 
               e As EventArgs) Handles MyBase.Load
 
        Me.Width = 1050
        Me.Height = 550
 
        pbMove.Width = Me.Width - 20
        pbMove.Height = 
             Me.ClientSize.Height - (btnStart.Top + btnStart.Height + 20)
 
        Dim picfile As String = "G:\Daten\x1.jpg"
 
        bmp_rect = BitmapFunctions.GetPicRect(picfile, pbMove.Size)
 
        Using bmp_orig As New Bitmap(picfile)
            bmp = New Bitmap(bmp_orig, 
               New Size(bmp_rect.Width, bmp_rect.Height))
        End Using
 
        'Das Bild im Hintergrund in die Image der Picturebox
        pbMove.Image = bmp
 
 
        startleft = -bmp.Width
        stopleft = bmp_rect.Left
        anim_left = startleft - 5
 
    End Sub
 
 
    Private Sub pbMove_Paint(sender As Object, 
        e As PaintEventArgs) Handles pbMove.Paint
 
        Dim rect_paint As New Rectangle(anim_left, 0, bmp.Width, bmp.Height)
 
        'Das animierte Bild in die Zeichenebene der Picturebox
        e.Graphics.DrawImage(bmp, rect_paint, 
                             New Rectangle(0, 0, bmp.Width, bmp.Height),
                             GraphicsUnit.Pixel)
    End Sub
 
 
    Private Sub timMove_Tick(sender As Object, e As EventArgs) Handles _
      timMove.Tick
 
        anim_left += 5
        If anim_left >= stopleft Then
            timMove.Enabled = False
            anim_left = startleft - 5
        Else
            pbMove.Invalidate()
        End If
 
    End Sub
 
 
    Private Sub btnStart_Click(sender As Object, 
           e As EventArgs) Handles btnStart.Click
 
        timMove.Enabled = Not timMove.Enabled
    End Sub
End Class

Public Class Form1
    Private Bmp As Bitmap
    Private PB_Size As Size = New Size(560, 315)
    Private PicLeft As Integer
    Private PicExpan As Integer = 5
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PbMove.Image = GetPic("C:\...\Pic1.jpg", PB_Size)
        Bmp = GetPic("C:\...\Pic2.jpg", PB_Size)
        StartLeft = -Bmp.Width
        PicLeft = StartLeft - PicExpan
    End Sub
 
    Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles _
      BtnStart.Click
        PicLeft = -Bmp.Width - PicExpan
 
        If TimerMove.Enabled = False Then
            TimerMove.Enabled = True
            BtnStart.Text = "Stop"
        Else
            TimerMove.Enabled = False
            BtnStart.Text = "Start"
        End If
    End Sub
 
    Private Function GetPic(FileName As String, PicSize As Size) As Bitmap
        Dim BmpOut As Bitmap
 
        Using Bmp As New Bitmap(FileName)
            Dim w, h, l, t As Integer
            w = CInt(Bmp.Width * PicSize.Height / Bmp.Height) + 1
            h = PicSize.Height + 1
            If w > PicSize.Width Then
                h = CInt(Bmp.Height * PicSize.Width / Bmp.Width) + 1
                w = PicSize.Width + 1
            End If
 
            l = ((PicSize.Width - w) \ 2) - 1
            t = ((PicSize.Height - h) \ 2) - 1
 
            BmpOut = New Bitmap(PicSize.Width, PicSize.Height)
 
            Using gout As Graphics = Graphics.FromImage(BmpOut)
                'gout.InterpolationMode = 
                ' Drawing2D.InterpolationMode.HighQualityBicubic
                gout.Clear(Color.Black)
                gout.DrawImage(Bmp, New Rectangle(l, t, w, h), New Rectangle(0, _
                  0, Bmp.Width, Bmp.Height), GraphicsUnit.Pixel)
            End Using
        End Using
 
        Return BmpOut
    End Function
 
    Private Sub PbMove_Paint(sender As Object, e As PaintEventArgs) Handles _
      PbMove.Paint
        Dim Rect_Paint As New Rectangle(PicLeft, 0, Bmp.Width, Bmp.Height)
        e.Graphics.DrawImage(Bmp, Rect_Paint, New Rectangle(0, 0, Bmp.Width, _
          Bmp.Height), GraphicsUnit.Pixel)
    End Sub
 
    Private Sub TimMove_Tick(sender As Object, e As EventArgs) Handles _
      TimerMove.Tick
        If PicLeft >= 0 Then
            TimerMove.Enabled = False
            PicLeft = 0
            PbMove.Invalidate()
            BtnStart.Text = "Start"
        Else
            PicLeft += PicExpan
            PbMove.Invalidate()
        End If
    End Sub
End Class