Private Sub PictureBoxAnpassen()
        Dim tmpString As String = ""
 
        Dim bildWidth As Integer = tsc_PicEditor_PictureBox.Image.Width
        Dim bildHeight As Integer = tsc_PicEditor_PictureBox.Image.Height
        tsc_PicEditor_PictureBox.Left = 0
        tsc_PicEditor_PictureBox.Top = 0
        tsc_PicEditor_PictureBox.Width = tsc_PicEditor_Panel.Width
        tsc_PicEditor_PictureBox.Height = tsc_PicEditor_Panel.Height
 
        Select Case MainformPicSizeMode ' Auswahl der vier Darstellungsmodi
            Case = 0 ' normal
                tsc_PicEditor_PictureBox.SizeMode = PictureBoxSizeMode.Normal
                tmpString = "Originalgrösse"
 
                tsc_PicEditor_PictureBox.Left = 0
                tsc_PicEditor_PictureBox.Top = 0
                If ((tsc_PicEditor_PictureBox.Image.Width > _
                  tsc_PicEditor_Panel.Width) Or ( _
                  tsc_PicEditor_PictureBox.Image.Height > _
                  tsc_PicEditor_Panel.Height)) Then
                    tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or _
                    AnchorStyles.Left
                Else
                    tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or _
                      AnchorStyles.Bottom Or AnchorStyles.Left Or _
                      AnchorStyles.Right
                End If
                tsc_PicEditor_PictureBox.Width = _
                  tsc_PicEditor_PictureBox.Image.Width
                tsc_PicEditor_PictureBox.Height = _
                tsc_PicEditor_PictureBox.Image.Height
 
            Case = 1 ' center
                tsc_PicEditor_PictureBox.SizeMode = _
                  PictureBoxSizeMode.CenterImage
                tmpString = "Originalgrösse (zentriert)"
 
                tsc_PicEditor_PictureBox.Anchor = AnchorStyles.Top Or _
                  AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right
                If tsc_PicEditor_PictureBox.Width > _
                tsc_PicEditor_PictureBox.Image.Width Then
                    tsc_PicEditor_PictureBox.Left = (tsc_PicEditor_Panel.Width _
                    - tsc_PicEditor_PictureBox.Image.Width) / 2
                    tsc_PicEditor_PictureBox.Width = _
                    tsc_PicEditor_PictureBox.Image.Width
                Else
                    tsc_PicEditor_PictureBox.Left = 0
                    tsc_PicEditor_PictureBox.Width = tsc_PicEditor_Panel.Width
                End If
                If tsc_PicEditor_PictureBox.Height > _
                  tsc_PicEditor_PictureBox.Image.Height Then
                    tsc_PicEditor_PictureBox.Top = (tsc_PicEditor_Panel.Height _
                    - tsc_PicEditor_PictureBox.Image.Height) / 2
                    tsc_PicEditor_PictureBox.Height = _
                    tsc_PicEditor_PictureBox.Image.Height
                Else
                    tsc_PicEditor_PictureBox.Top = 0
                    tsc_PicEditor_PictureBox.Height = tsc_PicEditor_Panel.Height
                End If
 
...