Dim bil As String
        Dim lvi As ListViewItem = mainform.ListView1.SelectedItems(0)
        Me.Text = lvi.Text
        bil = My.Application.Info.DirectoryPath + "\txt\" + lvi.Text + ".jpg"
        If Dir(bil) <> "" Then
            pic1.Image = System.Drawing.Bitmap.FromFile(bil)
        Else
            pic1.Image = System.Drawing.Bitmap.FromFile( _
              My.Application.Info.DirectoryPath + "\txt\404.jpg")
        End If