Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
        If Me.ListView1.SelectedItems IsNot Nothing AndAlso _
          Me.ListView1.SelectedItems.Count > -1 Then
            Dim bil As String
            Dim lvi As ListViewItem = Me.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
        End If
    End Sub