Public Function ShowPicture(ByVal DateiName As UltraID3)
 
        m_PictureFrames = DateiName.ID3v23Tag.Frames.GetFrames( _
          MultipleInstanceFrameTypes.Picture)
        m_PictureTypes = _
        HundredMilesSoftware.UltraID3Lib.ID3PictureFrame.PictureTypeList
        m_PictureIndex = -1
        If m_PictureFrames.Count > 0 Then
            m_PictureIndex = 0
        End If
 
        Dim PictureFrameCount As Integer = m_PictureFrames.Count
 
        If PictureFrameCount > 0 Then
            m_CurrentPictureFrame = CType(m_PictureFrames.Item(m_PictureIndex), _
              ID3PictureFrame)
            With m_CurrentPictureFrame
                If m_CurrentPictureFrame.Picture IsNot Nothing Then
                    'frmDetail.pbx_Picture.Image = m_CurrentPictureFrame.Picture
                    'frmDetail.pbx_Picture.Image.Save("C:\tmp.jpg")
                End If
            End With
        Else
            'frmDetail.pbx_Picture.Image = Nothing
        End If
        Return m_CurrentPictureFrame.Picture
 
    End Function

~ no brain, no headache ~