Visual Basic

Private Sub bAddFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAddFolder.Click

    For Each filePath As String In IO.Directory.GetFiles(DirListBox1.Path, "*.mp3", IO.SearchOption.AllDirectories)

        Dim Title(30) As Byte
        Dim Artist(30) As Byte
        Dim mp As FileStream = New FileStream(filePath, FileMode.Open)

        mp.Seek(-125, SeekOrigin.End)
        mp.Read(Title, 0, 30)
        mp.Seek(-95, SeekOrigin.End)
        mp.Read(Artist, 0, 30)
        mp.Close()

        Dim TxtTitle As String = System.Text.Encoding.Default.GetString(Title)
        Dim TxtArtist As String = System.Text.Encoding.Default.GetString(Artist)

        fMain.ListView1.Items.Add(TxtArtist + " - " + TxtTitle).SubItems.Add(filePath)

    Next

End Sub

Imports GflAx
Private MyImage As GflAx.GflAx

Public Class clsXn

    Public Sub ShowMyImage(ByVal fileToDisplay As String, ByVal xSize As Integer, _
                           ByVal ySize As Integer)
        ' Sets up an image object to be displayed.
        If (MyImage IsNot Nothing) Then
            MyImage.Dispose()
        End If

        ' Stretches the image to fit the pictureBox. 
        frmHead.pbox.SizeMode = PictureBoxSizeMode.StretchImage
        MyImage = New GflAx.GflAx
        MyImage.LoadBitmap(fileToDisplay)
        frmHead.pbox.ClientSize = New Size(xSize, ySize)
        frmHead.pbox.Image = MyImage             '<------- ERROR THROWN
    End Sub
end class

Private Sub btnTestXn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestXn.Click
    Dim Xn As New clsXn()
    Xn.ShowMyImage("D:\Test\pic1041.dpx", 192, 108)
End Sub