ازاي يظهر اسم الصورة فقط وليس الباص كامل

Private names As String()
Private chosen As Boolean = False

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim FileDialog As New OpenFileDialog()
FileDialog.Filter = "Image files (*.jpg,*.jpeg,*.bmp,*.gif,*.png)|*.BMP;*.PNG;*.JPG;*.JPEG;*.PNG"
' comment this line of code if it is not required by you
FileDialog.Multiselect = True

If FileDialog.ShowDialog() = DialogResult.OK Then
chosen = True
names = FileDialog.FileNames
' Adjust the Selected Picture to fit in PictureBox
PictureBox1.Image = Image.FromFile(FileDialog.FileName).GetThumbnailImage(PictureBox1.Width, PictureBox1.Height, Nothing, Nothing)
' Show the File Name Pluse Extension
Label4.Text = (System.IO.Path.GetFileNameWithoutExtension(FileDialog.FileName) + System.IO.Path.GetExtension(FileDialog.FileName))
' Show the File Name Only
Label3.Text = (System.IO.Path.GetFileNameWithoutExtension(FileDialog.FileName))

End If

End Sub


End Class

Public Class Form1