Dim str As String
        For Each file In My.Computer.FileSystem.GetFiles(Application.StartupPath)
            If System.IO.Path.GetExtension(file) = ".jpg" Then
                str = System.IO.Path.GetFileNameWithoutExtension(file)
                ListBox1.Items.Add(Application.StartupPath & str & ".jpg")
            End If
        Next