''' <summary>Kontrollierte Anzeige eines Bildes in der Picturebox</summary>
 ''' <param name="pbox">anzeigende Picturebox</param>
 ''' <param name="img">anzuzeigendes Bild</param>
 ''' <param name="usebackgroundimage">auf Hintergrundbild zuweisen?</param>
 Private Sub ShowPic(ByVal pbox As PictureBox, ByVal img As Image, _
                 Optional ByVal usebackgroundimage As Boolean = False)
 
    'Bei Gifs mit mehr als etwa 35 Frames verabschiedet 
    'sich das Display der Picturebox
 
    Const MaxFrames As Integer = 35
 
    If img Is Nothing Then Exit Sub
 
    With pbox
       If Not img.RawFormat.Equals(Imaging.ImageFormat.Gif) OrElse _
          img.GetFrameCount(Imaging.FrameDimension.Time) <= MaxFrames Then
 
          'kein GIF oder GiF mit maximal 35 Frames
          If usebackgroundimage Then
             .BackgroundImage = img
          Else
             .Image = img
          End If
       Else
          If img.SelectActiveFrame(Imaging.FrameDimension.Time, 0) = 0 Then
             'nur den ersten Frame des GIF zeigen
             If usebackgroundimage Then
                .BackgroundImage = New Bitmap(img)
             Else
                .Image = New Bitmap(img)
             End If
          Else
             'erster Frame des GIF nicht wählbar
             If usebackgroundimage Then
                .BackgroundImage = .ErrorImage
             Else
                .Image = .ErrorImage
             End If
         End If
       End If
    End With
End Sub